Lines Matching full:find
42 use File::Find qw(find);
59 # function from File::Find.
65 $File::Find::prune = 1;
72 open(my $fh, '<', $filename) or BAIL_OUT("Cannot open $File::Find::name");
76 ok(0, "$File::Find::name contains $regex");
77 close($fh) or BAIL_OUT("Cannot close $File::Find::name");
83 ok(0, "$File::Find::name contains $string");
84 close($fh) or BAIL_OUT("Cannot close $File::Find::name");
89 close($fh) or BAIL_OUT("Cannot close $File::Find::name");
90 ok(1, $File::Find::name);
94 # Use File::Find to scan all files from the top of the directory.
95 find(\&check_file, q{.});