Lines Matching refs:fname
60 $fname = $fh->filename;
824 # _deferred_unlink( $fh, $fname, $isdir );
871 croak 'Usage: _deferred_unlink($fh, $fname, $isdir)'
874 my ($fh, $fname, $isdir) = @_;
876 warn "Setting up deferred removal of $fname\n"
882 if (-d $fname) {
886 $fname = VMS::Filespec::vmspath($fname) if $^O eq 'VMS';
887 push (@dirs_to_unlink, $fname);
890 carp "Request to remove directory $fname could not be completed since it does not exist!\n" if $^W;
895 if (-f $fname) {
898 push(@files_to_unlink, [$fh, $fname]);
901 carp "Request to remove file $fname could not be completed since it is not there!\n" if $^W;