Lines Matching refs:spec_file
75 my $spec_file = shift;
76 my $spec_file_base = $spec_file;
81 # if spec_file contains a leading dir, then split it out
82 if ($spec_file =~ /.+\/(.+)/) {
90 if (! -e $spec_file) {
91 &print_msg ("ERROR: no such spec file: $spec_file\n");
95 if (! -w $spec_file) {
96 &print_msg ("ERROR: unable to write to spec file: $spec_file\n");
107 if (! open (SPECFILE, $spec_file)) {
108 &print_msg ("ERROR: Cannot read $spec_file: $!\n");
165 $out = `cp $temp_file $spec_file`;
168 &print_msg ("ERROR: \"cp $temp_file $spec_file\": $out");