diff options
| author | Frank Ridderbusch <Frank.Ridderbusch@pdb.siemens.de> | 1998-12-15 17:23:12 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-12-29 14:34:47 +0000 |
| commit | 697fd00866da9ab9ae085a2bd50fa6e3b523ba43 (patch) | |
| tree | 4f56389bda4771a63bb05a58200b12ae00c086db /lib | |
| parent | 9c7139f21bf83efebcf990d36376e93b958bd9cc (diff) | |
| download | perl-697fd00866da9ab9ae085a2bd50fa6e3b523ba43.tar.gz | |
Minor Bug in AutoSplit.qm in 5.005 and 5.004
Message-ID: <13942.32480.700000.640927@utensil>
(mirror change#2531 in the 5.005-maint)
p4raw-link: @2531 on //depot/maint-5.005/perl: 0555dac6ad663441b322a35f39c7c3f079fbd621
p4raw-id: //depot/cfgperl@2537
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/AutoSplit.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm index 121d26154d..f8183714d7 100644 --- a/lib/AutoSplit.pm +++ b/lib/AutoSplit.pm @@ -11,7 +11,7 @@ use vars qw( $Verbose $Keep $Maxlen $CheckForAutoloader $CheckModTime ); -$VERSION = "1.0302"; +$VERSION = "1.0303"; @ISA = qw(Exporter); @EXPORT = qw(&autosplit &autosplit_lib_modules); @EXPORT_OK = qw($Verbose $Keep $Maxlen $CheckForAutoloader $CheckModTime); @@ -219,7 +219,7 @@ sub autosplit_file { while (<IN>) { # Skip pod text. $fnr++; - $in_pod = 1 if /^=/; + $in_pod = 1 if /^=\w/; $in_pod = 0 if /^=cut/; next if ($in_pod || /^=cut/); |