Re: [PATCH] Re: [PATCH] maintperl - File::Spec cwd() stuff

Message-ID: <20030819152814.GA15441@math.berkeley.edu>

p4raw-id: //depot/perl@20779

diff --git a/lib/File/Spec/OS2.pm b/lib/File/Spec/OS2.pm
index 508dedf..e689c78 100644 (file)
--- a/lib/File/Spec/OS2.pm
+++ b/lib/File/Spec/OS2.pm
@@ -29,6 +29,11 @@ sub path {
     return @path;
 }
 
+sub cwd {
+    # In OS/2 the "require Cwd" is unnecessary bloat.
+    return Cwd::sys_cwd();
+}
+
 =pod
 
 =item tmpdir