diff options
| author | Ricardo Signes <rjbs@cpan.org> | 2014-03-14 09:09:29 +0100 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2014-03-18 13:22:34 -0400 |
| commit | 251d6b997b9e37bdac35f618227b85b01b0a808f (patch) | |
| tree | 3218d2236caa10e351c6108004af0ea4bea89743 | |
| parent | 61418c151d4145bd44be60d74d8d7d1ff980d495 (diff) | |
| download | perl-251d6b997b9e37bdac35f618227b85b01b0a808f.tar.gz | |
regen/warnings.pl no longer touches perllexwarn
| -rw-r--r-- | regen/warnings.pl | 19 | ||||
| -rw-r--r-- | t/porting/regen.t | 2 |
2 files changed, 1 insertions, 20 deletions
diff --git a/regen/warnings.pl b/regen/warnings.pl index 6ec836f37d..26a1525060 100644 --- a/regen/warnings.pl +++ b/regen/warnings.pl @@ -470,25 +470,6 @@ while (<DATA>) { read_only_bottom_close_and_rename($pm); -my $lexwarn = open_new 'pod/perllexwarn.pod', '>'; -open my $oldlexwarn, "pod/perllexwarn.pod" - or die "$0 cannot open pod/perllexwarn.pod for reading: $!"; -select +(select($lexwarn), do { - while(<$oldlexwarn>) { - print; - last if /=for warnings.pl begin/; - } - print "\n"; - print warningsTree($tree, " ") ; - print "\n"; - while(<$oldlexwarn>) { - last if /=for warnings.pl end/; - } - do { print } while <$oldlexwarn>; -})[0]; - -close_and_rename($lexwarn); - __END__ package warnings; diff --git a/t/porting/regen.t b/t/porting/regen.t index 1e481a257c..f57b8da690 100644 --- a/t/porting/regen.t +++ b/t/porting/regen.t @@ -20,7 +20,7 @@ if ( $Config{usecrosscompile} ) { skip_all( "Not all files are available during cross-compilation" ); } -my $tests = 26; # I can't see a clean way to calculate this automatically. +my $tests = 25; # I can't see a clean way to calculate this automatically. my %skip = ("regen_perly.pl" => [qw(perly.act perly.h perly.tab)], "regen/keywords.pl" => [qw(keywords.c keywords.h)], |