Lines Matching refs:fn
17 my $fn = shift;
18 lstat ($fn);
20 if (opendir (DIR, $fn)) {
22 &rmrf ($fn."/".$efn);
25 rmdir ($fn);
28 unlink ($fn);
48 for my $fn (grep (!/^\.\.?$/, readdir (DIR))) {
49 if (-d $dir.$fn) {
50 $fn eq "CVS" or $dirsdir{$fn} = 1;
52 $filesdir{$fn} = 1;
74 for my $fn (&newfiles (\%filesdir, \%filescvs)) {
75 print ("F ".$dir.$fn."\n");
76 &rmrf ($dir.$fn);
78 for my $fn (&newfiles (\%dirsdir, \%dirscvs)) {
79 print ("D ".$dir.$fn."\n");
80 &rmrf ($dir.$fn);
82 for my $fn (sort (keys (%dirscvs))) {
83 &cvsclean ($dir.$fn."/");