Lines Matching full:file
3 use File::Temp qw/ tempdir /;
6 die "$prog <code file> <error string> [optional command]\n" if ($#ARGV < 0);
7 my $file = shift @ARGV;
8 die "$prog: [error] cannot read file $file\n" if (! -r $file);
13 # Create a backup of the file.
16 my $srcFile = "$dir/$file";
17 `cp $file $srcFile`;
63 # Copy the final file.
64 `cp $srcFile $file.reduced`;
65 print "$prog: generated '$file.reduced";
