find symlinked commands when generating help list

This commit is contained in:
Nate Jones 2012-08-03 13:46:43 -07:00
parent b2a3509e63
commit 31166e1e1c

View file

@ -37,5 +37,5 @@ sub list_x {
my $d = shift;
return unless $d;
_chdir "$d/commands";
return map { $_ => $d } grep { -x $_ } map { chomp; s(^./)(); $_ } `find . -type f|sort`;
return map { $_ => $d } grep { -x $_ } map { chomp; s(^./)(); $_ } `find . -type f -o -type l|sort`;
}