3 # There's a bug in -P where the #! line is ignored. If this test
4 # suddenly starts printing blank lines that bug has been fixed.
17 open(TRY,">Comp_cpp.tmp") || die "Can't open temp perl file: $!";
19 ($prog = <<'END') =~ s/X//g;
21 X#include "Comp_cpp.inc"
28 close TRY or die "Could not close Comp_cpp.tmp: $!";
30 open(TRY,">Comp_cpp.inc") || (die "Can't open temp include file: $!");
31 print TRY '#define OK "ok 3\n"' . "\n";
32 close TRY or die "Could not close Comp_cpp.tmp: $!";
34 print `$^X "-P" Comp_cpp.tmp`;
35 unlink "Comp_cpp.tmp", "Comp_cpp.inc";