From 28312d68c47acb9f56de892774db5561fea4db01 Mon Sep 17 00:00:00 2001 From: Roderick Schertler Date: Thu, 19 Dec 1996 12:44:34 -0500 Subject: Re: find2perl . -xdev BROKEN still On Thu, 19 Dec 1996 08:06:04 -0800, David Dyck 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: --- lib/finddepth.pl | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'lib/finddepth.pl') 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, @_); -- cgit v1.2.1