From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 18 Aug 2003 18:53:05 +0000 (+0000)
Subject: Use the base class cwd() method.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=57db8a1156a63b084cc784787f4fbf02ce40bb10;p=p5sagit%2Fp5-mst-13.2.git

Use the base class cwd() method.

p4raw-id: //depot/perl@20761
---

diff --git a/lib/File/Spec/VMS.pm b/lib/File/Spec/VMS.pm
index 9d909b1..4000571 100644
--- a/lib/File/Spec/VMS.pm
+++ b/lib/File/Spec/VMS.pm
@@ -403,9 +403,7 @@ sub abs2rel {
 
     # Figure out the effective $base and clean it up.
     if ( !defined( $base ) || $base eq '' ) {
-        require Cwd;
-        $base = Cwd::cwd() ;
-        $base = $self->canonpath( $base ) ;
+        $base = $self->canonpath( $self->cwd ) ;
     }
     elsif ( ! $self->file_name_is_absolute( $base ) ) {
         $base = $self->rel2abs( $base ) ;
@@ -464,8 +462,7 @@ sub rel2abs {
     if ( ! $self->file_name_is_absolute( $path ) ) {
         # Figure out the effective $base and clean it up.
         if ( !defined( $base ) || $base eq '' ) {
-	    require Cwd;
-            $base = Cwd::cwd() ;
+            $base = $self->cwd;
         }
         elsif ( ! $self->file_name_is_absolute( $base ) ) {
             $base = $self->rel2abs( $base ) ;