diff options
| author | Craig A. Berry <craigberry@mac.com> | 2004-07-03 09:10:34 -0500 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-07-04 16:39:07 +0000 |
| commit | 9d7d97294754b044f4b4bee93dbdfb1d82ffe0d7 (patch) | |
| tree | f395dcdc2920657b8430294491e8584f91bda2d5 /lib | |
| parent | d281a6ac99b66dc149fbd56ba67cd73e3e87afb9 (diff) | |
| download | perl-9d7d97294754b044f4b4bee93dbdfb1d82ffe0d7.tar.gz | |
_vms_abs_path on non-directories
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <40E704AA.4090801@mac.com>
Date: Sat, 03 Jul 2004 14:10:34 -0500
p4raw-id: //depot/perl@23029
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Cwd.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index af0c47f7f1..37fdcfad5b 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -597,11 +597,11 @@ sub _vms_cwd { sub _vms_abs_path { return $ENV{'DEFAULT'} unless @_; + + # may need to turn foo.dir into [.foo] my $path = VMS::Filespec::pathify($_[0]); - if (! defined $path) - { - _croak("Invalid path name $_[0]") - } + $path = $_[0] unless defined $path; + return VMS::Filespec::rmsexpand($path); } |