This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
expand-macro.pl was printing the header include to STDOUT by mistake.
authorNicholas Clark <nick@ccl4.org>
Mon, 21 Dec 2009 11:48:38 +0000 (11:48 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 21 Dec 2009 11:52:34 +0000 (11:52 +0000)
This stopped it expanding macros in header files not directly or indirectly
included via perl.h or EXTERN.h

The bug was introduced with change 4784c5e80ccedd3734ce162e02ed1c7e25e60c01.

Porting/expand-macro.pl

index ed8e188..b031f14 100644 (file)
@@ -59,7 +59,7 @@ print $out <<"EOF";
 #include "perl.h"
 EOF
 
-print qq{#include "$header"\n}
+print $out qq{#include "$header"\n}
     unless $header eq 'perl.h' or $header eq 'EXTERN.h';
 
 print $out <<"EOF";