From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 8 Jan 2003 21:16:54 +0000 (+0000)
Subject: Integrate change #18362 from maint-5.8:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=802aa3baf8bc0abd194f64fa44dd0a6a8c6edba4;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;