From: Michael Mahan <mahanm@nextwork.rose-hulman.edu>
Date: Wed, 4 Sep 1996 02:55:19 +0000 (+0000)
Subject: Cwd::fastcwd in File::Find
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5a13742daee9596f29612f9436636edef76512f1;p=p5sagit%2Fp5-mst-13.2.git

Cwd::fastcwd in File::Find

Is there a good reason why File::Find uses Cwd::fastcwd instead of
Cwd:cwd when fastcwd isn't as portable?
[In particular, fastcwd() doesn't work on AFS.]
---

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 39fab7b..03ace14 100644
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -70,7 +70,7 @@ that don't resolve:
 
 sub find {
     my $wanted = shift;
-    my $cwd = Cwd::fastcwd();
+    my $cwd = Cwd::cwd();
     my ($topdir,$topdev,$topino,$topmode,$topnlink);
     foreach $topdir (@_) {
 	(($topdev,$topino,$topmode,$topnlink) = stat($topdir))