diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-26 08:25:41 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-04-26 08:25:41 +0000 |
| commit | 53667d02048b0d88d2026d5388665bfad577d2d4 (patch) | |
| tree | c4b29e750719e001cb7d8cb8c24bce5fa5056555 /lib/AutoSplit.pm | |
| parent | d175a3f045fc637f1a2ebcb20d3386cf109302c4 (diff) | |
| download | perl-53667d02048b0d88d2026d5388665bfad577d2d4.tar.gz | |
update Changes; tweak minor regressions
p4raw-id: //depot/perl@3272
Diffstat (limited to 'lib/AutoSplit.pm')
| -rw-r--r-- | lib/AutoSplit.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm index f8183714d7..33c0b9a03d 100644 --- a/lib/AutoSplit.pm +++ b/lib/AutoSplit.pm @@ -280,7 +280,7 @@ sub autosplit_file { $last_package = ''; while (<IN>) { $fnr++; - $in_pod = 1 if /^=/; + $in_pod = 1 if /^=\w/; $in_pod = 0 if /^=cut/; next if ($in_pod || /^=cut/); # the following (tempting) old coding gives big troubles if a |