Fix [perl #18666] (taking the more conservative approach).

p4raw-id: //depot/maint-5.8/perl@18362

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;