diff options
author | Michael Mahan <mahanm@nextwork.rose-hulman.edu> | 1996-09-04 02:55:19 +0000 |
---|---|---|
committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-09-04 02:55:19 +0000 |
commit | 5a13742daee9596f29612f9436636edef76512f1 (patch) | |
tree | 4aad15e1b3cbdd01640c938a150e74321921797b | |
parent | 5b195008ef414ee409beeac174749c7eefef1a28 (diff) | |
download | perl-5a13742daee9596f29612f9436636edef76512f1.tar.gz |
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.]
-rw-r--r-- | lib/File/Find.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Find.pm b/lib/File/Find.pm index 39fab7bcb9..03ace14fd7 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)) |