Upgrade to Test::Harness 2.38.

[p5sagit/p5-mst-13.2.git] / lib / Test / Harness / t / callback.t

diff --git a/lib/Test/Harness/t/callback.t b/lib/Test/Harness/t/callback.t
index 646e81f..c3a7fb9 100644 (file)
--- a/lib/Test/Harness/t/callback.t
+++ b/lib/Test/Harness/t/callback.t
@@ -53,7 +53,9 @@ $strap->{callback} = sub {
     push @out, $type;
 };
 
-while( my($test, $expect) = each %samples ) {
+for my $test ( sort keys %samples ) {
+    my $expect = $samples{$test};
+
     local @out = ();
     $strap->analyze_file(File::Spec->catfile($SAMPLE_TESTS, $test));