diff --git a/perl-5.8.8-bz247386-file-spec-cwd.patch b/perl-5.8.8-bz247386-file-spec-cwd.patch
new file mode 100644
index 0000000..2a1b6ed
--- /dev/null
+++ b/perl-5.8.8-bz247386-file-spec-cwd.patch
@@ -0,0 +1,11 @@
+--- 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();
+ }
+ 
+