deac/gitolite
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

find symlinked commands when generating help list

Browse source
This commit is contained in:
Nate Jones 2012-08-03 13:46:43 -07:00
parent b2a3509e63
commit 31166e1e1c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/commands/help
View file

@ -37,5 +37,5 @@ sub list_x {
my $d = shift; my $d = shift;
return unless $d; return unless $d;
_chdir "$d/commands"; _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`;
} }