X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Porting%2Fexpand-macro.pl;h=ed8e188efaab0fd0cef54b947f6d11351b964059;hb=345e23944176348809d2be92e05ba6856a5c0ebc;hp=2cdaa79727edf3f2e75af5b191056370af2cc79c;hpb=d5f3326709737080f113937629ab2010559f0729;p=p5sagit%2Fp5-mst-13.2.git

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