Change 18461 by rgs@rgs-home on 2003/01/08 21:16:54 Integrate change #18362 from maint-5.8: Fix [perl #18666] (taking the more conservative approach).
Affected files ... ... //depot/perl/lib/File/Spec/Unix.pm#33 integrate Differences ... ==== //depot/perl/lib/File/Spec/Unix.pm#33 (text) ==== Index: perl/lib/File/Spec/Unix.pm --- perl/lib/File/Spec/Unix.pm#32~17828~ Wed Sep 4 04:31:42 2002 +++ perl/lib/File/Spec/Unix.pm Wed Jan 8 13:16:54 2003 @@ -213,6 +213,7 @@ =cut sub path { + return () unless exists $ENV{PATH}; my @path = split(':', $ENV{PATH}); foreach (@path) { $_ = '.' if $_ eq '' } return @path; End of Patch.