3 # $Header: cpp.t,v 4.0 91/03/20 01:50:05 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";