File Parse-RecDescent-1.96.0.diff of Package perl-Parse-RecDescent

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