On 21/10/02 14:17 -0400, Mitchell N Charity wrote:
> perl C/rt/grammars.t
>
> Tests 5 & 6 are failing. Could you please find out why.
>
> My carelessness. Specifically, a boundary case variant was missed
> (function with no arguments, but whitespace between the parens).
>
> --- ParseRegExp.pm Mon Oct 21 12:46:43 2002
> +++ ParseRegExp.pm_new Mon Oct 21 13:44:25 2002
> @@ -87,6 +87,7 @@
> }xgo)
> {
> my($type, $identifier, $args, $what) = ($2,$3,$4,$5);
> + $args = "" if $args =~ /^\s+$/;
>
> my $is_decl = $what eq ';';
> my $function = $identifier;
Thanks, applied.
Cheers, Brian
