forked from pool/perl-Parse-RecDescent
4d882ffea9
Copy from devel:languages:perl/perl-Parse-RecDescent based on submit request 33266 from user anicka OBS-URL: https://build.opensuse.org/request/show/33266 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl-Parse-RecDescent?expand=0&rev=9
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;
|