(perltidy)

This commit is contained in:
Sitaram Chamarty 2012-03-19 07:49:01 +05:30
parent d853c58ada
commit 24b36f11c5
5 changed files with 21 additions and 21 deletions

View file

@ -34,7 +34,7 @@ exit 0;
# XXX lots of stuff from gl-auth-command is missing for now...
sub in_local {
if ($ENV{SSH_ORIGINAL_COMMAND} =~ /git-\w+-pack/) {
if ( $ENV{SSH_ORIGINAL_COMMAND} =~ /git-\w+-pack/ ) {
print STDERR "TRACE: gsh(", join( ")(", @ARGV ), ")\n";
print STDERR "TRACE: gsh(SOC=$ENV{SSH_ORIGINAL_COMMAND})\n";
}
@ -79,13 +79,13 @@ sub main {
my $ret = access( $repo, $user, $aa, 'any' );
trace( 1, "access($repo, $user, $aa, 'any')", "-> $ret" );
gl_log( 'gitolite-shell:check', $repo, $user, $aa, 'any', '->', $ret );
trigger('ACCESS_CHECK', $repo, $user, $aa, 'any', $ret);
trigger( 'ACCESS_CHECK', $repo, $user, $aa, 'any', $ret );
_die $ret if $ret =~ /DENIED/;
$repo = "'$rc{GL_REPO_BASE}/$repo.git'";
trigger('PRE_GIT', $repo, $user, $aa, 'any', $verb);
trigger( 'PRE_GIT', $repo, $user, $aa, 'any', $verb );
_system( "git", "shell", "-c", "$verb $repo" );
trigger('POST_GIT', $repo, $user, $aa, 'any', $verb);
trigger( 'POST_GIT', $repo, $user, $aa, 'any', $verb );
}
# ----------------------------------------------------------------------