[perl.git] branch blead, updated. v5.13.5-53-g0bfc72b

[Nicholas Clark]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/0bfc72b6d951f71ce7df3c1565981f64980acfc6?hp=756173d302c7f4024a88f3e7aafa344c3b63a32a>

- Log -----------------------------------------------------------------
commit 0bfc72b6d951f71ce7df3c1565981f64980acfc6
Author: Nicholas Clark <n...@ccl4.org>
Date:   Wed Sep 22 12:05:19 2010 +0100

    Remove from warnings.pl various long commented out and dead code.
    
    This code was commented out/rendered vestigial in 1998, 2000 and 2002 by
    599cee73f2261c5e, d3a7d8c7d7e4d69d and 0d658bf5a06395c2.
-----------------------------------------------------------------------

Summary of changes:
 warnings.pl |    8 --------
 1 files changed, 0 insertions(+), 8 deletions(-)

diff --git a/warnings.pl b/warnings.pl
index e261643..c201734 100644
--- a/warnings.pl
+++ b/warnings.pl
@@ -95,7 +95,6 @@ my %list ;
 my %Value ;
 my %ValueToName ;
 my %NameToValue ;
-my $index ;
 
 my %v_list = () ;
 
@@ -145,7 +144,6 @@ sub walk
     foreach $k (sort keys %$tre) {
        $v = $tre->{$k};
        die "duplicate key $k\n" if defined $list{$k} ;
-       #$Value{$index} = uc $k ;
        die "Can't find key '$k'"
            if ! defined $NameToValue{uc $k} ;
         push @{ $list{$k} }, $NameToValue{uc $k} ;
@@ -300,8 +298,6 @@ EOM
 
 my $offset = 0 ;
 
-$index = $offset ;
-...@{ $list{"all"} } = walk ($tree) ;
 valueWalk ($tree) ;
 my $index = orderValues();
 
@@ -386,8 +382,6 @@ while (<DATA>) {
     print $pm $_ ;
 }
 
-#$list{'all'} = [ $offset .. 8 * ($warn_size/2) - 1 ] ;
-
 $last_ver = 0;
 print $pm "our %Offsets = (\n" ;
 foreach my $k (sort { $a <=> $b } keys %ValueToName) {
@@ -412,7 +406,6 @@ foreach $k (sort keys  %list) {
     my @list = sort { $a <=> $b } @$v ;
 
     print $pm tab(4, "    '$k'"), '=> "',
-               # mkHex($warn_size, @list),
                mkHex($warn_size, map $_ * 2 , @list),
                '", # [', mkRange(@list), "]\n" ;
 }
@@ -426,7 +419,6 @@ foreach $k (sort keys  %list) {
     my @list = sort { $a <=> $b } @$v ;
 
     print $pm tab(4, "    '$k'"), '=> "',
-               # mkHex($warn_size, @list),
                mkHex($warn_size, map $_ * 2 + 1 , @list),
                '", # [', mkRange(@list), "]\n" ;
 }

--
Perl5 Master Repository