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

[Russell Matbouli]

> --- 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 #?

This occured to me while I was falling asleep and had to wake up and
boot up my computer again :) (aka - std disclaimer if this turns out to
be nonesense or evidence that I'm Perl obsessed if it turns out to be
true.)

(I checked this on a bleadperl from May and it was the same at this
portion of the code.)

Thanks for finding out what this was and patching it so quickly, Mike :)

>  
>  	# record last package name seen
>  	$def_package = $1 if (m/^\s*package\s+([\w:]+)\s*;/);

-- 
Russell Matbouli       |
russell at futureless.org |    Monkey, Monkey, Monkey, Monkey, William Shatner!
PGP KeyID: 0x3CA84CF4  |
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 232 bytes
Desc: not available
Url : http://mail.pm.org/archives/belfast-pm/attachments/20011216/95c0dba3/attachment.bin