parent
9ce386d29b
commit
fb8989f1c7
@ -1 +1 @@
|
|||||||
Parse-RecDescent-1.963.tar.gz
|
Parse-RecDescent-1.964.tar.gz
|
||||||
|
@ -1,19 +0,0 @@
|
|||||||
diff -up Parse-RecDescent-1.963/lib/Parse/RecDescent.pm.old Parse-RecDescent-1.963/lib/Parse/RecDescent.pm
|
|
||||||
--- Parse-RecDescent-1.963/lib/Parse/RecDescent.pm.old 2010-01-20 23:13:19.000000000 +0100
|
|
||||||
+++ Parse-RecDescent-1.963/lib/Parse/RecDescent.pm 2010-02-16 11:46:33.475648895 +0100
|
|
||||||
@@ -2363,11 +2363,12 @@ sub _generate($$$;$$)
|
|
||||||
}
|
|
||||||
elsif ($grammar =~ m/$LITERAL/gco)
|
|
||||||
{
|
|
||||||
- ($code = $1) =~ s/\\\\/\\/g;
|
|
||||||
- _parse("a literal terminal", $aftererror,$line,$1);
|
|
||||||
+ my $literal = $1;
|
|
||||||
+ ($code = $literal) =~ s/\\\\/\\/g;
|
|
||||||
+ _parse("a literal terminal", $aftererror,$line,$literal);
|
|
||||||
$item = new Parse::RecDescent::Literal($code,$lookahead,$line);
|
|
||||||
$prod and $prod->additem($item)
|
|
||||||
- or _no_rule("literal terminal",$line,"'$1'");
|
|
||||||
+ or _no_rule("literal terminal",$line,"'$literal'");
|
|
||||||
}
|
|
||||||
elsif ($grammar =~ m/$INTERPLIT/gco)
|
|
||||||
{
|
|
Loading…
Reference in new issue