From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Tue, 19 Aug 2003 08:28:14 +0000 (-0700)
Subject: Re: [PATCH] Re: [PATCH] maintperl - File::Spec cwd() stuff
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3f528443b6a6bb74adb02f5c77345eadbe5a30cb;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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