(minor)
trace rationalisation plus perltidy again
This commit is contained in:
parent
89a1857d56
commit
9650d2fb3f
4 changed files with 9 additions and 4 deletions
|
@ -13,11 +13,11 @@ Prints a list of custom commands available at this gitolite installation.
|
|||
=cut
|
||||
|
||||
my $user = $ENV{GL_USER} || '';
|
||||
print "hello" . ( $user ? " $user" : "") . ", this is gitolite3 " . version() . " on git " . substr( `git --version`, 12 ) . "\n";
|
||||
print "hello" . ( $user ? " $user" : "" ) . ", this is gitolite3 " . version() . " on git " . substr( `git --version`, 12 ) . "\n";
|
||||
|
||||
_chdir("$ENV{GL_BINDIR}/commands");
|
||||
|
||||
print "list of " . ($user ? "remote" : "gitolite" ) . " commands available:\n\n";
|
||||
print "list of " . ( $user ? "remote" : "gitolite" ) . " commands available:\n\n";
|
||||
|
||||
for my $c (`find . -type f|sort`) {
|
||||
chomp($c);
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue