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