Lines Matching refs:FILE
60 local (*FILE);
61 open( FILE, ">$name" ) or barf("Can't write to $name: $!");
62 print FILE $contents;
63 close FILE;
78 my ( $header, $file ) = @_;
80 open( FILE, "$file" ) or barf("Can't read $file: $!");
81 while (<FILE>) {
84 close FILE;
179 print "Or upload a file: ";
317 "You must choose between uploading a file and typing code in. You can't do both at the same time."
324 print "<p>Processing uploaded file. It looks like $language.</p>\n";
327 barf( "Error uploading file: " . $c->cgi_error );
345 s@(\n)?#include.*[<"](.*\.\..*)[">].*\n@$1#error "invalid #include file $2 detected"\n@g;
362 #$stats = "-Wa,--stats,--time-passes,--info-output-file=$timerFile"
380 $stats = "--stats --time-passes --info-output-file=$timerFile"
