--- perl-5.8.8/lib/File/Spec/Unix.pm.orig	2005-08-27 12:14:38.000000000 -0500
+++ perl-5.8.8/lib/File/Spec/Unix.pm	2007-07-07 22:13:51.000000000 -0500
@@ -470,7 +470,7 @@
 # File::Spec subclasses use this.
 sub _cwd {
     require Cwd;
-    Cwd::cwd();
+    Cwd::getcwd();
 }