diff options
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 ; - } ########################################################################### |