summaryrefslogtreecommitdiff
path: root/lib/finddepth.pl
diff options
context:
space:
mode:
authorRoderick Schertler <roderick@gate.net>1996-12-19 12:44:34 -0500
committerChip Salzenberg <chip@atlantic.net>1996-12-20 11:14:00 +1200
commit28312d68c47acb9f56de892774db5561fea4db01 (patch)
treef7141f0cb052ed09afdd577e81e5afbb28d6eaf7 /lib/finddepth.pl
parent477f5d66753fb2a661264a381aecf12e9a9beac1 (diff)
downloadperl-28312d68c47acb9f56de892774db5561fea4db01.tar.gz
Re: find2perl . -xdev BROKEN still
On Thu, 19 Dec 1996 08:06:04 -0800, David Dyck <dcd@TC.FLUKE.COM> said: > > It seems that the -xdev feature for find2perl has been broken for that > last few subversions. > > I think it is because $topdev is no longer exported from find. You are right. This has been broken since find.pl was replaced with a wrapper around File::Find. Here's a fix. PS: I know this has come up before, but why don't we offer $name, $dir and so on (or maybe $find_name, etc, aliases) in @EXPORT_OK? p5p-msgid: <pzvi9yig3h.fsf@eeyore.ibcinc.com>
Diffstat (limited to 'lib/finddepth.pl')
-rw-r--r--lib/finddepth.pl11
1 files changed, 8 insertions, 3 deletions
diff --git a/lib/finddepth.pl b/lib/finddepth.pl
index 5814a44b1f..bfa44bb1bc 100644
--- a/lib/finddepth.pl
+++ b/lib/finddepth.pl
@@ -30,9 +30,14 @@
use File::Find ();
-*name = *File::Find::name;
-*prune = *File::Find::prune;
-*dir = *File::Find::dir;
+*name = *File::Find::name;
+*prune = *File::Find::prune;
+*dir = *File::Find::dir;
+*topdir = *File::Find::topdir;
+*topdev = *File::Find::topdev;
+*topino = *File::Find::topino;
+*topmode = *File::Find::topmode;
+*topnlink = *File::Find::topnlink;
sub finddepth {
&File::Find::finddepth(\&wanted, @_);