Lines Matching refs:filename
107 my $filename = shift;
111 die "can not open data file $filename" if ! -e $filename;
117 open my $in, $filename;
402 …my $filename = File::Spec->catfile($ENV{'TARFILE_LOCATION'}, $given_checksum->{'value'}."-".$name);
403 return 0 unless -f $filename;
415 open my $in, $filename;
422 open my $in, $filename;
435 unlink($filename);
510 my $filename = File::Spec->catfile($ENV{'TARFILE_LOCATION'}, $name);
512 my $temporary_filename = $filename . ".part";
585 $filename = File::Spec->catfile($ENV{'TARFILE_LOCATION'}, $file_checksum . "-" . $name);
588 … rename($temporary_filename, $filename) || die "can not rename $temporary_filename to $filename";