Re: [PATCH] Re: [PATCH] maintperl - File::Spec cwd() stuff
Ilya Zakharevich [Tue, 19 Aug 2003 08:28:14 +0000 (01:28 -0700)]
Message-ID: <20030819152814.GA15441@math.berkeley.edu>

p4raw-id: //depot/perl@20779

lib/File/Spec/OS2.pm

index 508dedf..e689c78 100644 (file)
@@ -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