diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2001-12-15 10:08:29 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-16 03:24:34 +0000 |
| commit | fe169e074ced6c4ea9171b838d3697595aa1a180 (patch) | |
| tree | ca9efcf03a5b3681c7abd676bd09ae206e4ed190 | |
| parent | dbe420b4c394bd4b445748eaf636d08e4ef0d358 (diff) | |
| download | perl-fe169e074ced6c4ea9171b838d3697595aa1a180.tar.gz | |
Fwd: [russell-belfast-pm@futureless.org: Re: This is the __END__]
Message-ID: <20011215200829.GK1548@blackrider>
p4raw-id: //depot/perl@13713
| -rw-r--r-- | lib/AutoSplit.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm index bf4d811454..3c45d92113 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*;/); |