X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Ffind.pl;h=ee5dc5d150654e9330b5aaeeeab089eb86291f79;hb=4499d6b9d14594604210bc28005c5e4ab2e49947;hp=29b83b082c85bcfe9f56fdd57fb600a9305e7160;hpb=dffa8cde9002476ae514bd0d995e9a1310014b8c;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/find.pl b/lib/find.pl index 29b83b0..ee5dc5d 100644 --- a/lib/find.pl +++ b/lib/find.pl @@ -31,9 +31,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 find { &File::Find::find(\&wanted, @_);