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.
