[schwern@pobox.com: [PATCH lib/AutoSplit.pm] Fwd: [russell-belfast-pm@futureless.org: Re: This is the __END__]]

[Michael G Schwern]

On Sun, Dec 16, 2001 at 12:49:49AM +0000, Russell Matbouli wrote:
> > --- lib/AutoSplit.pm	2001/12/15 20:04:00	1.1
> > +++ lib/AutoSplit.pm	2001/12/15 20:04:52
> > @@ -238,6 +238,7 @@
> >  	$in_pod = 1 if /^=\w/;
> >  	$in_pod = 0 if /^=cut/;
> >  	next if ($in_pod || /^=cut/);
> > +        next if /^\s*#/;
> 
> Why are you looking specifically for whitespace here? Couldn't it also
> possibly be anything followed by a #?

Because we're not trying to parse Perl, just a reasonable fascimile
thereof.  All that line does is skip any really obvious comments.


-- 

Michael G. Schwern   <schwern at pobox.com>    http://www.pobox.com/~schwern/
Perl Quality Assurance	    <perl-qa at perl.org>	       Kwalitee Is Job One
<purl> Hey Schwern! honk, honk, honk, honk, honk, honk, honk, honk,
honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk,
honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk,
honk, honk, honk, honk, honk, honk, honk, honk, honk, honk, honk,
honk, honk, honk, honk, honk, honk, honk, honk, honk, honk!