perl-Parse-RecDescent/Parse-RecDescent-1.965001.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;