diff options
| author | Nikola Knezevic <indy@tesla.rcub.bg.ac.yu> | 2002-03-06 19:13:51 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-07 00:16:10 +0000 |
| commit | 9c1370fb202eb56860da11d7695c846c33542694 (patch) | |
| tree | 31b868630e682a2c4b39be86aa6a5dc529c36fd4 /lib/File | |
| parent | e1516da7e8b82e9629d3c329f6f0664c7c80d68a (diff) | |
| download | perl-9c1370fb202eb56860da11d7695c846c33542694.tar.gz | |
reordering conditions in Win32.pm
Message-ID: <16925657426.20020306181351@tesla.rcub.bg.ac.yu>
p4raw-id: //depot/perl@15074
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Spec/Win32.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm index c2e463b80c..ea9a62029e 100644 --- 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 ) ; } |