From: Frank Ridderbusch <Frank.Ridderbusch@pdb.siemens.de>
Date: Tue, 15 Dec 1998 16:23:12 +0000 (+0100)
Subject: Minor Bug in AutoSplit.qm in 5.005 and 5.004
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=697fd00866da9ab9ae085a2bd50fa6e3b523ba43;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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/);