1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!./perl BEGIN { chdir 't' if -d 't'; @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'; }, ".");