perl-Parse-RecDescent/Parse-RecDescent-1.94.diff

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