This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] Re: [PATCH] maintperl - File::Spec cwd() stuff
authorIlya Zakharevich <ilya@math.berkeley.edu>
Tue, 19 Aug 2003 08:28:14 +0000 (01:28 -0700)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 19 Aug 2003 16:49:22 +0000 (16:49 +0000)
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