X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=vms%2Fext%2FFilespec.pm;h=e0a179b12d131cb2eeba06b84d662e20631e0ef6;hb=b6c2855378a705b6278bd4e260febb2b484b9fcd;hp=2dd1df147279d2c7bda10419734a5a9c740179c1;hpb=a1fc2545f876d2c56046836367f5646078d2a90a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/vms/ext/Filespec.pm b/vms/ext/Filespec.pm
index 2dd1df1..e0a179b 100644
--- a/vms/ext/Filespec.pm
+++ b/vms/ext/Filespec.pm
@@ -128,7 +128,7 @@ This document was last revised 22-Feb-1996, for Perl 5.002.
 package VMS::Filespec;
 require 5.002;
 
-our $VERSION = '1.1';
+our $VERSION = '1.11';
 
 # If you want to use this package on a non-VMS system,
 # uncomment the following line.
@@ -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*)/;