Skip #ifdefs and other preprocessor lines when parsing the

local_patches section of patchlevel.h.

p4raw-id: //depot/perl@34824

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index b75a677..d0263f3 100644 (file)
--- a/utils/perlbug.PL
+++ b/utils/perlbug.PL
@@ -40,6 +40,7 @@ if (! defined($_)) {
 my @patches;
 while (<PATCH_LEVEL>) {
     last if /^\s*}/;
+    next if /^\s*#/;  # preprocessor stuff
     chomp;
     s/^\s+,?\s*"?//;
     s/"?\s*,?$//;