Upgrade to version.pm 0.48

[p5sagit/p5-mst-13.2.git] / vms / ext / Filespec.pm

diff --git a/vms/ext/Filespec.pm b/vms/ext/Filespec.pm
index c4a4ffd..e0a179b 100644 (file)
--- 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*)/;