From: Michael G. Schwern <schwern@pobox.com>
Date: Sat, 15 Dec 2001 15:08:29 +0000 (-0500)
Subject: Fwd: [russell-belfast-pm@futureless.org: Re: This is the __END__]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fe169e074ced6c4ea9171b838d3697595aa1a180;p=p5sagit%2Fp5-mst-13.2.git

Fwd: [russell-belfast-pm@futureless.org: Re: This is the __END__]
Message-ID: <20011215200829.GK1548@blackrider>

p4raw-id: //depot/perl@13713
---

diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm
index bf4d811..3c45d92 100644
--- a/lib/AutoSplit.pm
+++ b/lib/AutoSplit.pm
@@ -238,6 +238,7 @@ sub autosplit_file {
 	$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*;/);