Lines Matching refs:temp_file
77 my $temp_file;
86 $temp_file = "/tmp/$spec_file_base.tmp";
100 if (-e $temp_file) {
101 if (unlink ($temp_file) != 1) {
102 &print_msg ("ERROR: Cannot delete old temp file $temp_file: $!\n");
112 if (! open (TEMPFILE, ">$temp_file")) {
113 &print_msg ("ERROR: Cannot create $temp_file: $!\n");
165 $out = `cp $temp_file $spec_file`;
168 &print_msg ("ERROR: \"cp $temp_file $spec_file\": $out");
172 unlink ($temp_file);