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