diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-17 07:40:09 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-17 07:40:09 +0000 |
| commit | 95dfd3ab5ca3e72850832fe8585dd8f0b3fc729f (patch) | |
| tree | 1214ce13a603e07d5152cfab74bd827360a8c093 /warning.pl | |
| parent | 60e6418e713a685accbfac231ad24b33f7569c3a (diff) | |
| download | perl-95dfd3ab5ca3e72850832fe8585dd8f0b3fc729f.tar.gz | |
sort WARN_FOO symbols to avoid hash traversal order dependency
p4raw-id: //depot/perl@2243
Diffstat (limited to 'warning.pl')
| -rw-r--r-- | warning.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/warning.pl b/warning.pl index 59dac2fcdd..86faf9625c 100644 --- a/warning.pl +++ b/warning.pl @@ -59,8 +59,8 @@ sub walk my @list = () ; my ($k, $v) ; - while (($k, $v) = each %$tre) { - + foreach $k (sort keys %$tre) { + $v = $tre->{$k}; die "duplicate key $k\n" if defined $list{$k} ; $Value{$index} = uc $k ; push @{ $list{$k} }, $index ++ ; @@ -70,7 +70,6 @@ sub walk } return @list ; - } ########################################################################### |