14 open(TRY,">Comp.cpp.tmp") || die "Can't open temp perl file.";
16 ($prog = <<'END') =~ s/X//g;
18 X#include "Comp.cpp.inc"
27 open(TRY,">Comp.cpp.inc") || (die "Can't open temp include file.");
28 print TRY '#define OK "ok 3\n"' . "\n";
33 $x = `./perl -P Comp.cpp.tmp`;
35 unlink "Comp.cpp.tmp", "Comp.cpp.inc";