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

(perltidy)

Browse source
This commit is contained in:
Sitaram Chamarty 2012-03-15 20:04:30 +05:30
parent afcd974afa
commit 8714b77eae
14 changed files with 39 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/commands/access
View file

@ -44,7 +44,7 @@ my $ret = '';
$ret = access( $repo, $user, $aa, $ref );
if ($ret =~ /DENIED/) {
if ( $ret =~ /DENIED/ ) {
print "$ret\n" unless $quiet;
exit 1;
}

4
src/commands/info
View file

@ -19,7 +19,7 @@ usage() if @ARGV;
my $user = $ENV{GL_USER} or _die "GL_USER not set";
my $ref = 'any';
print "hello $user, this is gitolite3 " . version() . " on git " . substr(`git --version`, 12) . "\n";
print "hello $user, this is gitolite3 " . version() . " on git " . substr( `git --version`, 12 ) . "\n";
my $lr = lister_dispatch('list-repos');
my $lm = lister_dispatch('list-members');
@ -27,7 +27,7 @@ my $lm = lister_dispatch('list-members');
for ( @{ $lr->() } ) {
my $perm = '';
for my $aa (qw(R W ^C)) {
my $ret = access($_, $user, $aa, $ref);
my $ret = access( $_, $user, $aa, $ref );
$perm .= ( $ret =~ /DENIED/ ? " " : " $aa" );
}
next unless $perm =~ /\S/;