This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Patch for VMS::Filespec
authorKen Williams <ken@mathforum.org>
Wed, 17 Sep 2003 20:11:46 +0000 (15:11 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 18 Sep 2003 05:00:23 +0000 (05:00 +0000)
Message-Id: <12FBA07F-E975-11D7-BDD7-003065F6D85A@mathforum.org>

p4raw-id: //depot/perl@21270

vms/ext/Filespec.pm

index c4a4ffd..e0a179b 100644 (file)
@@ -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*)/;