This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re-introduce pure-Perl fall-back for abs_path,
[perl5.git] / lib / File / Find.pm
index eb4b2de..bfcbcfd 100644 (file)
@@ -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};