diff options
Diffstat (limited to 'vms/ext/Filespec.pm')
| -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*)/; |