6f54844e8e
* Fixed bug with undefined $1 when parsing literals (thanks Dan!) * Fixed premature namespace destruction bug with compiled grammars OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Parse-RecDescent?expand=0&rev=10
13 lines
344 B
Diff
13 lines
344 B
Diff
Index: lib/Parse/RecDescent.pm
|
|
===================================================================
|
|
--- lib/Parse/RecDescent.pm.orig
|
|
+++ lib/Parse/RecDescent.pm
|
|
@@ -2808,6 +2808,7 @@ sub _check_grammar ($)
|
|
sub _code($)
|
|
{
|
|
my $self = shift;
|
|
+ $skip = "" if(! defined $skip);
|
|
my $code = qq{
|
|
package $self->{namespace};
|
|
use strict;
|