--- 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;