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 39fab7bcb9d33081f5cd090cb55be627ca7cd4ac..03ace14fd70a189b4ab7de08e23c4e46f890c8c1 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))