X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/ed690650a4d3639a6ac1ace13598aa3f1c99d7dc..c893053f329772e31b0ed040820fa69db50249aa:/Porting/expand-macro.pl

diff --git a/Porting/expand-macro.pl b/Porting/expand-macro.pl
index 34b76cb..ed8e188 100644
--- 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