Integrate change #18362 from maint-5.8:
Rafael Garcia-Suarez [Wed, 8 Jan 2003 21:16:54 +0000 (21:16 +0000)]
Fix [perl #18666] (taking the more conservative approach).
p4raw-link: @18362 on //depot/maint-5.8/perl: bcd31b804be27d8e7f3a254e1ef926468a1fef19

p4raw-id: //depot/perl@18461
p4raw-integrated: from //depot/maint-5.8/perl@18460 'copy in'
lib/File/Spec/Unix.pm (@18080..)

lib/File/Spec/Unix.pm

index d9615c0..2f45b5e 100644 (file)
@@ -213,6 +213,7 @@ Takes no argument, returns the environment variable PATH as an array.
 =cut
 
 sub path {
+    return () unless exists $ENV{PATH};
     my @path = split(':', $ENV{PATH});
     foreach (@path) { $_ = '.' if $_ eq '' }
     return @path;