From 3bcc0c4bdd9457f6924030e81994a3583d07a8cb Mon Sep 17 00:00:00 2001
From: Gisle Aas <gisle@activestate.com>
Date: Wed, 12 Nov 2008 14:50:14 +0000
Subject: Skip #ifdefs and other preprocessor lines when parsing the
 local_patches section of patchlevel.h.

p4raw-id: //depot/perl@34824
---
 utils/perlbug.PL | 1 +
 1 file changed, 1 insertion(+)

(limited to 'utils/perlbug.PL')

diff --git a/utils/perlbug.PL b/utils/perlbug.PL
index b75a677517..d0263f39aa 100644
--- 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*,?$//;
-- 
cgit v1.2.1