Integrate change #18362 from maint-5.8:

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..)

diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm
index d9615c0..2f45b5e 100644 (file)
--- a/lib/File/Spec/Unix.pm
+++ b/lib/File/Spec/Unix.pm
@@ -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;