This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
avoid initializing GvCV slot for autovivified filehandles
[perl5.git] / t / lib / filefind.t
... / ...
CommitLineData
1#!./perl
2
3BEGIN {
4 chdir 't' if -d 't';
5 unshift @INC, '../lib';
6}
7
8print "1..2\n";
9
10use File::Find;
11
12# hope we will eventually find ourself
13find(sub { print "ok 1\n" if $_ eq 'filefind.t'; }, ".");
14finddepth(sub { print "ok 2\n" if $_ eq 'filefind.t'; }, ".");