From ee1280c953682bb27ef889bc50cff06de7d58555 Mon Sep 17 00:00:00 2001 From: Ken Williams Date: Wed, 17 Sep 2003 15:11:46 -0500 Subject: [PATCH] Patch for VMS::Filespec Message-Id: <12FBA07F-E975-11D7-BDD7-003065F6D85A@mathforum.org> p4raw-id: //depot/perl@21270 --- vms/ext/Filespec.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/vms/ext/Filespec.pm b/vms/ext/Filespec.pm index c4a4ffd..e0a179b 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*)/; -- 2.7.4