This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perlbug.PL assumes patchlevel.h has simple patch lists;
authorDavid Mitchell <davem@iabyn.com>
Wed, 12 Aug 2009 18:11:24 +0000 (19:11 +0100)
committerDavid Mitchell <davem@iabyn.com>
Wed, 12 Aug 2009 18:11:24 +0000 (19:11 +0100)
but these days it contains macros that expand to patch lists;
for now, just skip these macros. need a proper fix sometime.

utils/perlbug.PL

index 78c3b42..f53a009 100644 (file)
@@ -41,6 +41,8 @@ my @patches;
 while (<PATCH_LEVEL>) {
     last if /^\s*}/;
     next if /^\s*#/;  # preprocessor stuff
 while (<PATCH_LEVEL>) {
     last if /^\s*}/;
     next if /^\s*#/;  # preprocessor stuff
+    next if /PERL_GIT_UNPUSHED_COMMITS/;    # XXX exapand instaed
+    next if /PERL_GIT_UNCOMMITTED_CHANGES/; # XXX exapand instaed
     chomp;
     s/^\s+,?\s*"?//;
     s/"?\s*,?$//;
     chomp;
     s/^\s+,?\s*"?//;
     s/"?\s*,?$//;