19 lines
475 B
Diff
19 lines
475 B
Diff
|
--- Getopt-Helpful-0.04.orig/t/verbose-debug.t 2006-06-05 08:07:17.000000000 +0200
|
||
|
|
+++ Getopt-Helpful-0.04/t/verbose-debug.t 2020-02-21 19:16:53.601872190 +0100
|
||
|
|
@@ -57,6 +57,7 @@
|
||
|
|
'+help'
|
||
|
|
);
|
||
|
|
$hopt->Get();
|
||
|
|
+local $Data::Dumper::Sortkeys = 1;
|
||
|
|
print Dumper({v => $verbose, d => $debug});
|
||
|
|
TEST_CODE
|
||
|
|
|
||
|
|
@@ -79,6 +80,7 @@
|
||
|
|
=cut
|
||
|
|
sub res_check {
|
||
|
|
my ($expect, @run) = @_;
|
||
|
|
+ local $Data::Dumper::Sortkeys = 1;
|
||
|
|
my $string = Dumper($expect);
|
||
|
|
my $out = catch(@run);
|
||
|
|
SKIP: {
|