(main): Iterate over the sorted keys (rather than `while...each...'),

so this script produces the same output regardless of which version
of perl (e.g., perl5.6) is used.

1 files changed, 3 insertions, 2 deletions

diff --git a/tests/mk-script b/tests/mk-script
index a0fab2c90..b8bf735b7 100755
--- a/tests/mk-script
+++ b/tests/mk-script
@@ -273,10 +273,11 @@ EOF1
 	|| {FILE => 0};
 
       my $n_vias = keys %$vias;
-      my ($via, $val);
-      while (($via, $val) = each %$vias)
+      my $via;
+      foreach $via (sort keys %$vias)
 	{
 	  my $cmd;
+	  my $val = $vias->{$via};
 	  my $via_msg = ($n_vias == 1 ? '' : $via_msg_string{$via});
 	  my $file_args = join (' ', @srcdir_rel_in_file);