diff options
author | Andreas J. Koenig <koenig@kulturbox.de> | 1998-04-21 22:02:31 +1200 |
---|---|---|
committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1998-05-12 08:58:58 +1200 |
commit | 8feeb00d9bcbfb48ac4815920437f342d6499759 (patch) | |
tree | 598d695b188700be870bf4bbbcbd31a4b0580d25 | |
parent | 1eeb7509cc646c0e61b6b7efff5e431178e3f9be (diff) | |
download | perl-8feeb00d9bcbfb48ac4815920437f342d6499759.tar.gz |
Fix File::Find::finddepth typo in trial 2 release
Subject: 5.004_04-m2: File::Find::finddepth is gone
It looks just like a typo. I've added a test to findfind.t too.
p5p-msgid: sfcbttflsjz.fsf@dubravka.in-berlin.de
-rw-r--r-- | lib/File/Find.pm | 2 | ||||
-rwxr-xr-x | t/lib/filefind.t | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/lib/File/Find.pm b/lib/File/Find.pm index cdd28da3c4..062943c0e1 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -202,7 +202,7 @@ sub find { find_opt(wrap_wanted($wanted), @_); } -sub find_depth { +sub finddepth { my $wanted = wrap_wanted(shift); $wanted->{bydepth} = 1; find_opt($wanted, @_); diff --git a/t/lib/filefind.t b/t/lib/filefind.t index 21e29a2d7f..cd2e9771c7 100755 --- a/t/lib/filefind.t +++ b/t/lib/filefind.t @@ -5,9 +5,10 @@ BEGIN { @INC = '../lib'; } -print "1..1\n"; +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'; }, "."); |