perl-Parse-RecDescent/Parse-RecDescent-1.80.dif

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