3 # $Header: comp.cpp,v 3.0.1.2 90/11/10 02:10:17 lwall Locked $
11 #If you capitalize, it's a comment.
18 open(TRY,">Comp.cpp.tmp") || die "Can't open temp perl file.";
20 ($prog = <<'END') =~ s/X//g;
22 X#include "Comp.cpp.inc"
31 open(TRY,">Comp.cpp.inc") || (die "Can't open temp include file.");
32 print TRY '#define OK "ok 3\n"' . "\n";
37 $x = `./perl -P Comp.cpp.tmp`;
39 unlink "Comp.cpp.tmp", "Comp.cpp.inc";