Lines Matching refs:fn
50 my $fn = $name;
51 $fn =~ s/\\(\d+|.)/ eval "\"\\$1\"" /eg;
53 undef $type unless -f $fn;
55 undef $type unless -d $fn;
57 undef $type unless -b $fn;
59 undef $type unless -c $fn;
61 undef $type unless -p $fn;
63 undef $type unless -S $fn;
109 if (!$dry_run && !chmod($mode, $fn)) {
117 if (!chown($uid, $gid, $fn)) {
120 if (($mode & 06000) && !chmod($mode, $fn)) {
135 my($fn) = @_;
136 open(IN, $fn) or die "Unable to open $fn: $!\n";
143 die "Invalid line #$. in mapfile `$fn':\n$_";