Integrate from mainperl.

[p5sagit/p5-mst-13.2.git] / warning.pl

diff --git a/warning.pl b/warning.pl
index 59dac2f..e6b435f 100644 (file)
--- a/warning.pl
+++ b/warning.pl
@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+BEGIN {
+  push @INC, './lib';
+}
 use strict ;
 
 sub DEFAULT_ON  () { 1 }
@@ -59,8 +62,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 +73,6 @@ sub walk
     }
 
    return @list ;
-
 }
 
 ###########################################################################
@@ -262,7 +264,7 @@ package warning;
 
 =head1 NAME
 
-warning - Perl pragma to control 
+warning - Perl pragma to control optional warnings
 
 =head1 SYNOPSIS