Lines Matching refs:cfile
73 our ($cfile);
274 $cfile = "a.out.c";
276 $cfile = $Input;
279 $cfile =~ s/\.(?:p(?:lx|l|h)|m)\z//i;
280 $cfile .= ".c";
281 $cfile = $Output if opt(c) && $Output =~ /\.c\z/i;
283 check_write($cfile);
287 ($cfh, $cfile) = tempfile("pccXXXXX", SUFFIX => ".c");
290 vprint 1, "Writing C on $cfile";
299 my $command = "$BinPerl $taint -MO=$Backend,$addoptions$testsuite$max_line_len$stash,-o$cfile $Input";
312 cc_harness_msvc($cfile,$stash) :
313 cc_harness($cfile,$stash) unless opt(c);
316 vprint 2, "unlinking $cfile";
317 unlink $cfile or _die("can't unlink $cfile: $!");
322 my ($cfile,$stash)=@_;
325 my $compile = ExtUtils::Embed::ccopts." -c -Fo$obj $cfile ";
339 my ($cfile,$stash)=@_;
341 my $command = ExtUtils::Embed::ccopts." -o $Output $cfile ";
582 unlink $cfile if ($cfile && !opt(S) && !opt(c));