From 28154116c48da371c2dddea4ded43d1a329c6322 Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Sun, 12 Aug 2001 17:44:03 +0000
Subject: (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.

---
 tests/mk-script | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'tests/mk-script')

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);
 
-- 
cgit v1.2.3-54-g00ecf