diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-06 11:52:56 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-06 11:52:56 +0000 |
| commit | a0c9c202edde87fa4f6c175b545b8b4d311d45b9 (patch) | |
| tree | 37f1744dca7dbc6a7b98fe8346ea2bfa6cbed901 /lib/File/Find.pm | |
| parent | 9ebf09bc35992a0eeace2e06916ca4dca399c8f2 (diff) | |
| download | perl-a0c9c202edde87fa4f6c175b545b8b4d311d45b9.tar.gz | |
Re-introduce pure-Perl fall-back for abs_path,
re-introduce #11898.
p4raw-id: //depot/perl@11910
Diffstat (limited to 'lib/File/Find.pm')
| -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 eb4b2dee28..bfcbcfd008 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -475,7 +475,7 @@ sub _find_opt { $pre_process, $post_process, $dangling_symlinks); local($dir, $name, $fullname, $prune); - my $cwd = $wanted->{bydepth} ? Cwd::fastcwd() : Cwd::cwd(); + my $cwd = $wanted->{bydepth} ? Cwd::fastcwd() : Cwd::getcwd(); my $cwd_untainted = $cwd; my $check_t_cwd = 1; $wanted_callback = $wanted->{wanted}; |