reordering conditions in Win32.pm

Message-ID: <16925657426.20020306181351@tesla.rcub.bg.ac.yu>

p4raw-id: //depot/perl@15074

diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm
index c2e463b..ea9a620 100644 (file)
--- a/lib/File/Spec/Win32.pm
+++ b/lib/File/Spec/Win32.pm
@@ -266,12 +266,12 @@ sub abs2rel {
     }
 
     # Figure out the effective $base and clean it up.
-    if ( ! $self->file_name_is_absolute( $base ) ) {
-        $base = $self->rel2abs( $base ) ;
-    }
-    elsif ( !defined( $base ) || $base eq '' ) {
+    if ( !defined( $base ) || $base eq '' ) {
         $base = cwd() ;
     }
+    elsif ( ! $self->file_name_is_absolute( $base ) ) {
+        $base = $self->rel2abs( $base ) ;
+    }
     else {
         $base = $self->canonpath( $base ) ;
     }