Lines Matching refs:file
59 foreach my $file ( @specfiles )
63 foreach my $file ( @ARGV )
65 if ( ! -r $file )
67 print "ERROR: $file is missing or not readable.\n";
75 # Change t_suffix and Release data and add %changelog entry for each file.
76 foreach my $file ( @specfiles )
78 if ( open( IN, '<' . $file ) )
80 if ( open( OUT, '>' . $file . ".$$" ) )
106 rename( $file . ".$$", $file );
107 print "$file - done\n";
111 print "WARNING: Unable to open $file ($!). Skipping.\n";
115 # Update ChangeLog too, putting info at the top of the file.