diff options
| author | Ken Williams <ken@mathforum.org> | 2003-09-17 15:11:46 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-18 05:00:23 +0000 |
| commit | ee1280c953682bb27ef889bc50cff06de7d58555 (patch) | |
| tree | 4fa64e64f29b8992746e531384229370cbc677f7 /vms | |
| parent | 7ad90562640caa7bf113483a230fea3eb0d77a9f (diff) | |
| download | perl-ee1280c953682bb27ef889bc50cff06de7d58555.tar.gz | |
Patch for VMS::Filespec
Message-Id: <12FBA07F-E975-11D7-BDD7-003065F6D85A@mathforum.org>
p4raw-id: //depot/perl@21270
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/ext/Filespec.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/vms/ext/Filespec.pm b/vms/ext/Filespec.pm index c4a4ffda22..e0a179b12d 100644 --- a/vms/ext/Filespec.pm +++ b/vms/ext/Filespec.pm @@ -180,6 +180,7 @@ sub rmsexpand ($;$) { ($node,$dev,$dir,$name,$type,$ver) = $fspec =~ /([^:]*::)?([^:]*:)?([^>\]]*[>\]])?([^.;]*)(\.?[^.;]*)([.;]?\d*)/; foreach ((@$defaults,$ENV{'DEFAULT'})) { + next unless defined; last if $node && $ver && $type && $dev && $dir && $name; ($dnode,$ddev,$ddir,$dname,$dtype,$dver) = /([^:]*::)?([^:]*:)?([^>\]]*[>\]])?([^.;]*)(\.?[^.;]*)([.;]?\d*)/; |