summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndreas J. Koenig <koenig@kulturbox.de>1998-04-21 22:02:31 +1200
committerTim Bunce <Tim.Bunce@ig.co.uk>1998-05-12 08:58:58 +1200
commit8feeb00d9bcbfb48ac4815920437f342d6499759 (patch)
tree598d695b188700be870bf4bbbcbd31a4b0580d25
parent1eeb7509cc646c0e61b6b7efff5e431178e3f9be (diff)
downloadperl-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.pm2
-rwxr-xr-xt/lib/filefind.t3
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'; }, ".");