blob: 5d1492f04096a1bc4b3668e5bcbf1a83e537320c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#!./perl
BEGIN {
chdir 't' if -d 't';
unshift @INC, '../lib';
}
print "1..2\n";
use File::Find;
# hope we will eventually find ourself
find(sub { print "ok 1\n" if $_ eq 'filefind.t'; }, ".");
finddepth(sub { print "ok 2\n" if $_ eq 'filefind.t'; }, ".");
|
