diff options
| author | Peter Palfrader <peter@palfrader.org> | 2004-11-14 22:54:11 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2004-11-14 22:54:11 +0000 |
| commit | 37f9798469b1240c131a83086986b7494b627e2a (patch) | |
| tree | 28452dc0b0959d5f1e2572277ca5e3f6aa71b49a /Echolot/Config.pm | |
| parent | 35e54656cb0d8629bae2668d445f644d56cd184a (diff) | |
Handle empty PATH too
Diffstat (limited to 'Echolot/Config.pm')
| -rw-r--r-- | Echolot/Config.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Echolot/Config.pm b/Echolot/Config.pm index 5ef4fda..547d812 100644 --- a/Echolot/Config.pm +++ b/Echolot/Config.pm @@ -316,9 +316,11 @@ sub check_binaries() { unless -x $path; } else { my $found = 0; - for my $pathelem (split /:/, $ENV{'PATH'}) { - $found = $pathelem, last - if -e $pathelem.'/'.$path; + if (defined $ENV{'PATH'}) { + for my $pathelem (split /:/, $ENV{'PATH'}) { + $found = $pathelem, last + if -e $pathelem.'/'.$path; + }; }; if ($found) { Echolot::Log::warn ("$bin binary $found/$path is not executeable") |