This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Allow expand-macro.pl to expand macros in perl.h without pre-processor warnings.
[perl5.git]
/
Porting
/
expand-macro.pl
diff --git
a/Porting/expand-macro.pl
b/Porting/expand-macro.pl
index
34b76cb
..
ed8e188
100644
(file)
--- a/
Porting/expand-macro.pl
+++ b/
Porting/expand-macro.pl
@@
-57,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