From #43633: Cwd::cwd() use in File::Spec::Unix use causes unnecessary fork()

p4raw-id: //depot/perl@31686

diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm
index 5674731..98a24dd 100644 (file)
--- a/lib/File/Spec/Unix.pm
+++ b/lib/File/Spec/Unix.pm
@@ -475,7 +475,7 @@ L<File::Spec>
 # File::Spec subclasses use this.
 sub _cwd {
     require Cwd;
-    Cwd::cwd();
+    Cwd::getcwd();
 }