$ENV{'TMPDIR'} = "${TMPDIR}"; # set the env var as well
}
+$tempfile = "$Tmp_prefix.i";
+
sub quit_upon_signal {
- if (-f "$Tmp_prefix.i") {
- print STDERR "Deleting $Tmp_prefix.i .. \n";
- unlink "$Tmp_prefix.i";
+ if (-f $tempfile) {
+ print STDERR "Deleting $tempfile .. \n";
+ unlink $tempfile;
}
}
$SIG{'INT'} = 'quit_upon_signal';
$fname = &tidy_dir_names($fname);
- $tempfile = "$Tmp_prefix.i";
# ${CPP} better be 'gcc -E', or the -x option will fail...
$result = system("${CPP} $Include_dirs @Defines -x c $fname -o $tempfile");
exit($result);
};
- open($fhandle, $tempfile) || die "$Pgm: Can't open $fname: $!\n";
+ open($fhandle, $tempfile) || die "$Pgm: Can't open $tempfile: $!\n";
line: while (<$fhandle>) {
next line if ! /^#/;
$Depend_seen{$depend} = 1;
}
close($fhandle);
- unlink($tempname);
- $tempname = ''; # for quit_upon_signal
+ unlink($tempfile);
+ $tempfile = ''; # for quit_upon_signal
}
sub tidy_dir_names { # rm various pernicious dir-name combinations...