Cwd::fastcwd in File::Find
authorMichael Mahan <mahanm@nextwork.rose-hulman.edu>
Wed, 4 Sep 1996 02:55:19 +0000 (02:55 +0000)
committerAndy Dougherty <doughera@lafcol.lafayette.edu>
Wed, 4 Sep 1996 02:55:19 +0000 (02:55 +0000)
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.]

lib/File/Find.pm

index 39fab7b..03ace14 100644 (file)
@@ -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))