Skip non-existing dirs in PATH.

SVN revision: 15243
This commit is contained in:
Kim Woelders 2005-06-10 21:55:22 +00:00
parent e8695258fa
commit 783f57e872
1 changed files with 1 additions and 0 deletions

View File

@ -369,6 +369,7 @@ sub MakeEppsMenu {
open(FD, ">$EdirMenus/$f");
print FD "\"Enlightenment Epplets\"\n";
foreach $d (split(':', $ENV{'PATH'})) {
next unless -d $d;
next if ($done{$d});
$done{$d} = 1;
print "Looking for epplets in $d\n" if $dbg ge 1;