develooper Front page | perl.perl5.changes | Postings from November 2008

Change 34824: Skip #ifdefs and other preprocessor lines when parsing the

From:
Gisle Aas
Date:
November 12, 2008 07:00
Subject:
Change 34824: Skip #ifdefs and other preprocessor lines when parsing the
Change 34824 by gisle@gisle-ask on 2008/11/12 14:50:14

	Skip #ifdefs and other preprocessor lines when parsing the
	local_patches section of patchlevel.h.

Affected files ...

... //depot/perl/utils/perlbug.PL#59 edit

Differences ...

==== //depot/perl/utils/perlbug.PL#59 (text) ====
Index: perl/utils/perlbug.PL
--- perl/utils/perlbug.PL#58~34414~	2008-09-24 05:20:35.000000000 -0700
+++ perl/utils/perlbug.PL	2008-11-12 06:50:14.000000000 -0800
@@ -40,6 +40,7 @@
 my @patches;
 while (<PATCH_LEVEL>) {
     last if /^\s*}/;
+    next if /^\s*#/;  # preprocessor stuff
     chomp;
     s/^\s+,?\s*"?//;
     s/"?\s*,?$//;
End of Patch.



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About