diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-05-01 21:34:11 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-05-01 21:34:11 +0100 |
| commit | f5d41823bbea2258a17f2f1d1cb3518b46ab3562 (patch) | |
| tree | 8d5c443e7c7ebbf0638df6102620218e40d9a532 /ext/Errno/Errno_pm.PL | |
| parent | c6bf6a65e4bf512beae58d59446046f4ca20372f (diff) | |
| download | perl-f5d41823bbea2258a17f2f1d1cb3518b46ab3562.tar.gz | |
Remove the lexical $len and associated calculation, which is never used.
Diffstat (limited to 'ext/Errno/Errno_pm.PL')
| -rw-r--r-- | ext/Errno/Errno_pm.PL | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL index 124b8fc8b4..e63a66773e 100644 --- a/ext/Errno/Errno_pm.PL +++ b/ext/Errno/Errno_pm.PL @@ -2,7 +2,7 @@ use ExtUtils::MakeMaker; use Config; use strict; -our $VERSION = "1.11"; +our $VERSION = "1.12"; my %err = (); my %wsa = (); @@ -354,9 +354,7 @@ use strict; EDQ - my $len = 0; 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; |