Lines Matching refs:dir
31 use vars qw/$f_flg *name *dir @execlist $basedir @opt_e @exclude/;
33 *dir = *File::Find::dir;
35 # Use the same mechanism as def.dir.flp to determine if there are any
39 my ($pat, $dir) = @_;
41 my $foo = `find $dir -name "$pat" -print | grep /SCCS/s.`;
100 foreach my $dir (split(/\s+/, "$2")) {
101 next if !defined($expfile = expand($dir));
103 warn "$fname:$firstline: $dir isn't a directory\n";
105 warn "$fname:$firstline: $dir is unnecessary\n";
107 warn "$fname:$firstline: $dir has no SCCS objects ",