In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/4784c5e80ccedd3734ce162e02ed1c7e25e60c01?hp=3b910a06633f63976a6da223b122193040fbe96d>
- Log ----------------------------------------------------------------- commit 4784c5e80ccedd3734ce162e02ed1c7e25e60c01 Author: Nicholas Clark <[email protected]> Date: Thu Jun 18 20:37:28 2009 +0100 Allow expand-macro.pl to expand macros in perl.h without pre-processor warnings. M Porting/expand-macro.pl commit ed690650a4d3639a6ac1ace13598aa3f1c99d7dc Author: Nicholas Clark <[email protected]> Date: Thu Jun 18 20:33:09 2009 +0100 Make expand-macro.pl scan config.h, if it exists. M Porting/expand-macro.pl ----------------------------------------------------------------------- Summary of changes: Porting/expand-macro.pl | 8 +++++++- 1 files changed, 7 insertions(+), 1 deletions(-) diff --git a/Porting/expand-macro.pl b/Porting/expand-macro.pl index 2cdaa79..ed8e188 100644 --- a/Porting/expand-macro.pl +++ b/Porting/expand-macro.pl @@ -32,6 +32,7 @@ if (!(@ARGV = @headers)) { while (<$fh>) { push @ARGV, $1 if m!^([^/]+\.h)\t!; } + push @ARGV, 'config.h' if -f 'config.h'; } my $header; @@ -56,7 +57,12 @@ my $sentinel = "$macro expands to"; print $out <<"EOF"; #include "EXTERN.h" #include "perl.h" -#include "$header" +EOF + +print qq{#include "$header"\n} + unless $header eq 'perl.h' or $header eq 'EXTERN.h'; + +print $out <<"EOF"; #line 4 "$sentinel" $macro$args EOF -- Perl5 Master Repository
