11 lines
222 B
Diff
11 lines
222 B
Diff
|
--- lib/Parse/RecDescent.pm.orig
|
||
|
|
+++ lib/Parse/RecDescent.pm
|
||
|
|
@@ -2808,6 +2808,7 @@
|
||
|
|
sub _code($)
|
||
|
|
{
|
||
|
|
my $self = shift;
|
||
|
|
+ $skip = "" if(! defined $skip);
|
||
|
|
my $code = qq{
|
||
|
|
package $self->{namespace};
|
||
|
|
use strict;
|