Lines Matching refs:filename

41     my ($filename) = @_;
43     open my $in, '<', $filename or croak "Can't open $filename: $!";
44     if (filetype($filename) =~ /^text\//xms) {
48             croak "Can't binmode $filename: $!";
54     close $in or warn "Can't close $filename: $!";
64     my ($filename) = @_;
67     if (-e $filename) {
68         $resolved_file = $filename;
73               map { File::Spec->catfile($_, $filename) } 
114     my ($filename) = @_;
122     my $path = resolve_file($filename);
124         croak "File not found: $filename";
127     $status->{$filename} = {
143     while (my ($filename, $fstatus) = each (%$status)) {
144         my $path = resolve_file($filename);
149             say "M $filename";