Hi,
> Index: nag.pl
> ===================================================================
> RCS file: /home/cvs/jakarta-alexandria/proposal/gump/nag.pl,v
> retrieving revision 1.7
> retrieving revision 1.8
> diff -u -r1.7 -r1.8
> --- nag.pl 11 Feb 2002 16:27:45 -0000 1.7
> +++ nag.pl 21 Oct 2002 07:54:42 -0000 1.8
> @@ -41,6 +41,7 @@
>
> # extract just the stuff from inside the XMP tag
> if (m! .* <XMP> \s* (.*) \s* </XMP> !xs) {
> + $1 || m!(<p>.*</p>)!s; # if nothing found, look for prereqs
> $pageData = $1;
> } else {
> $pageData = "";
It seems like the above does not quite work as expected. I have no perl
knowledge but I would hazard to guess that if the first pattern does not
match anything it will will go to the else section. So maybe the else should
look like
$pageData = m!(<p>.*</p>)!s;
Of course I have no idea what m! or !s means so could be completely wrong ;)
--
Cheers,
Peter Donald
"All my life I wanted to be someone; I guess I should have been more
specific."
-- Jane Wagner
--
To unsubscribe, e-mail: <mailto:alexandria-dev-unsubscribe@;jakarta.apache.org>
For additional commands, e-mail: <mailto:alexandria-dev-help@;jakarta.apache.org>
