summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Meyering <jim@meyering.net>2001-08-12 17:44:03 +0000
committerJim Meyering <jim@meyering.net>2001-08-12 17:44:03 +0000
commit28154116c48da371c2dddea4ded43d1a329c6322 (patch)
treef755414933fa7e49831dafaee65fc13c052b6cde
parent4488d9300dd036f7b832cbabd1439ac9e368cb10 (diff)
downloadcoreutils-28154116c48da371c2dddea4ded43d1a329c6322.tar.xz
(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.
-rwxr-xr-xtests/mk-script5
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);