diff options
| author | Gisle Aas <gisle@activestate.com> | 2008-11-12 14:50:14 +0000 |
|---|---|---|
| committer | Gisle Aas <gisle@activestate.com> | 2008-11-12 14:50:14 +0000 |
| commit | 3bcc0c4bdd9457f6924030e81994a3583d07a8cb (patch) | |
| tree | e3c0cf89ebbe109f2947d052d5a28105eb8b109b /utils | |
| parent | 95458265ab67cfcbb48cd98946da8c8b79779401 (diff) | |
| download | perl-3bcc0c4bdd9457f6924030e81994a3583d07a8cb.tar.gz | |
Skip #ifdefs and other preprocessor lines when parsing the
local_patches section of patchlevel.h.
p4raw-id: //depot/perl@34824
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/perlbug.PL | 1 |
1 files changed, 1 insertions, 0 deletions
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*,?$//; |