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 (file)
--- 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))