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

diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm
index 121d261..f818371 100644 (file)
--- 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/);