Lines Matching refs:file
21 my $file = $tmpfile->filename;
32 open my $fh, '>', $file or die "Couldn't write temporary file $file: $!";
34 close $fh or die "Couldn't finish temporary file $file: $!";
72 my $tfile = $file;
75 should_be_clean($file);
76 should_fail TYPE => 'file', SOURCE => $tfile;
77 should_fail TYPE => 'file', SOURCE => $tfile, UNTAINT => 1;
78 should_fail TYPE => 'file', SOURCE => $file;
79 should_work TYPE => 'file', SOURCE => $file, UNTAINT => 1;
82 open $fh, '<', $file or die "Couldn't open $file for reading: $!; aborting";
86 open $fh, '<', $file or die "Couldn't open $file for reading: $!; aborting";