File Parse-RecDescent-1.965001.patch of Package perl-Parse-RecDescent

diff -ruN Parse-RecDescent-1.965001-orig/lib/Parse/RecDescent.pm Parse-RecDescent-1.965001/lib/Parse/RecDescent.pm
--- Parse-RecDescent-1.965001-orig/lib/Parse/RecDescent.pm	2010-04-05 00:00:10.000000000 +0200
+++ Parse-RecDescent-1.965001/lib/Parse/RecDescent.pm	2010-10-19 21:29:55.000000000 +0200
@@ -2808,6 +2808,7 @@
 sub _code($)
 {
     my $self = shift;
+    $skip = "" if(! defined $skip);
     my $code = qq{
 package $self->{namespace};
 use strict;