At 10:32 AM -0600 1/17/06, Craig Berry wrote:
>
>On Tuesday, January 17, 2006, at 03:26AM, Allison Randal <[EMAIL PROTECTED]>
>wrote:
> >I don't have access to VMS, so I'd appreciate it if you'd check and
>>make sure the patch still solves your problem after my changes. You
>>can find the pre-release version here:
>>
>> http://svn.lohutok.net/nam/trunk/perl5/modules/Pod/Simple/lib/Pod/
>>Simple/Search.pm
>>
>>If all is well, I can release 3.04 tomorrow.
>
>I'll take it for a spin and let you know, probably tonight.
There were a couple of places where the replacement of $_ with $line
was not complete, but after the following on top of your working
version, I get all Pod::Simple tests passing with a recent version of
blead:
--- lib/Pod/Simple/Search.pm;-2 Tue Jan 17 22:23:13 2006
+++ lib/Pod/Simple/Search.pm Tue Jan 17 22:57:57 2006
@@ -260,7 +260,7 @@
my $in_name = 0;
my $line;
while ($line = <PODFILE>) {
- chomp;
+ chomp $line;
$in_pod = 1 if ($line =~ m/^=\w/);
$in_pod = 0 if ($line =~ m/^=cut/);
next unless $in_pod; # skip non-pod text
@@ -279,7 +279,7 @@
last;
}
}
- $in_name = 1 if m/^=head1 NAME/;
+ $in_name = 1 if $line =~ m/^=head1 NAME/;
}
close PODFILE;
}
[end of patch]
--
________________________________________
Craig A. Berry
mailto:[EMAIL PROTECTED]
"... getting out of a sonnet is much more
difficult than getting in."
Brad Leithauser
