From 802aa3baf8bc0abd194f64fa44dd0a6a8c6edba4 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 8 Jan 2003 21:16:54 +0000
Subject: [PATCH] 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..)
---
 lib/File/Spec/Unix.pm | 1 +
 1 file changed, 1 insertion(+)

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