This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove the lexical $len and associated calculation, which is never used.
authorNicholas Clark <nick@ccl4.org>
Sat, 1 May 2010 20:34:11 +0000 (21:34 +0100)
committerNicholas Clark <nick@ccl4.org>
Sat, 1 May 2010 20:34:11 +0000 (21:34 +0100)
ext/Errno/Errno_pm.PL

index 124b8fc..e63a667 100644 (file)
@@ -2,7 +2,7 @@ use ExtUtils::MakeMaker;
 use Config;
 use strict;
 
 use Config;
 use strict;
 
-our $VERSION = "1.11";
+our $VERSION = "1.12";
 
 my %err = ();
 my %wsa = ();
 
 my %err = ();
 my %wsa = ();
@@ -354,9 +354,7 @@ use strict;
 
 EDQ
    
 
 EDQ
    
-    my $len = 0;
     my @err = sort { $err{$a} <=> $err{$b} } keys %err;
     my @err = sort { $err{$a} <=> $err{$b} } keys %err;
-    map { $len = length if length > $len } @err;
 
     my $j = "\@EXPORT_OK = qw(" . join(" ",keys %err) . ");\n";
     $j =~ s/(.{50,70})\s/$1\n\t/g;
 
     my $j = "\@EXPORT_OK = qw(" . join(" ",keys %err) . ");\n";
     $j =~ s/(.{50,70})\s/$1\n\t/g;