Change 13713 by jhi@alpha on 2001/12/16 03:24:34
Subject: [PATCH lib/AutoSplit.pm] Fwd: [[EMAIL PROTECTED]:
Re: This is the __END__]
From: Michael G Schwern <[EMAIL PROTECTED]>
Date: Sat, 15 Dec 2001 15:08:29 -0500
Message-ID: <20011215200829.GK1548@blackrider>
Affected files ...
.... //depot/perl/lib/AutoSplit.pm#32 edit
Differences ...
==== //depot/perl/lib/AutoSplit.pm#32 (text) ====
Index: perl/lib/AutoSplit.pm
--- perl/lib/AutoSplit.pm.~1~ Sat Dec 15 20:30:05 2001
+++ perl/lib/AutoSplit.pm Sat Dec 15 20:30:05 2001
@@ -238,6 +238,7 @@
$in_pod = 1 if /^=\w/;
$in_pod = 0 if /^=cut/;
next if ($in_pod || /^=cut/);
+ next if /^\s*#/;
# record last package name seen
$def_package = $1 if (m/^\s*package\s+([\w:]+)\s*;/);
End of Patch.
