X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/767bb2e0924772d5c7f107cbef61877d1bc39810..e4fc8a1e010cc9cb02abe6e5d8d39a15decdcd55:/lib/Test/Harness/t/strap-analyze.t

diff --git a/lib/Test/Harness/t/strap-analyze.t b/lib/Test/Harness/t/strap-analyze.t
index 70f973d..c372df9 100644
--- a/lib/Test/Harness/t/strap-analyze.t
+++ b/lib/Test/Harness/t/strap-analyze.t
@@ -468,7 +468,10 @@ $SIG{__WARN__} = sub {
     warn @_ unless $_[0] =~ /^Enormous test number/ ||
                    $_[0] =~ /^Can't detailize/
 };
-while( my($test, $expect) = each %samples ) {
+
+for my $test ( sort keys %samples ) {
+    my $expect = $samples{$test};
+
     for (0..$#{$expect->{details}}) {
         $expect->{details}[$_]{type} = ''
             unless exists $expect->{details}[$_]{type};