Files
perl-Getopt-Helpful/hash-randomization3.patch
2020-02-21 20:03:25 +00:00

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: {