diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-01-08 21:16:54 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-01-08 21:16:54 +0000 |
| commit | 802aa3baf8bc0abd194f64fa44dd0a6a8c6edba4 (patch) | |
| tree | 594b30e07742796334f2f215922e927ca8d23cdf /lib | |
| parent | cca467b19326f868608ec9ebbf8161776d9e444c (diff) | |
| download | perl-802aa3baf8bc0abd194f64fa44dd0a6a8c6edba4.tar.gz | |
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..)
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/File/Spec/Unix.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm index d9615c06b4..2f45b5ed91 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; |