3 # $RCSfile: cpp.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:18 $
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";