2010-01-14 17:44:07 +01:00
|
|
|
Index: lib/Parse/RecDescent.pm
|
|
|
|
===================================================================
|
|
|
|
--- lib/Parse/RecDescent.pm.orig
|
|
|
|
+++ lib/Parse/RecDescent.pm
|
2010-07-16 17:30:10 +02:00
|
|
|
@@ -2808,6 +2808,7 @@ sub _check_grammar ($)
|
2010-01-14 17:44:07 +01:00
|
|
|
sub _code($)
|
|
|
|
{
|
|
|
|
my $self = shift;
|
|
|
|
+ $skip = "" if(! defined $skip);
|
|
|
|
my $code = qq{
|
|
|
|
package $self->{namespace};
|
|
|
|
use strict;
|