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

sources: 1-line all the "do"s for brevity and clarity

Browse source 
and yes, brevity and clarity "do" go together in perl :)
This commit is contained in:
Sitaram Chamarty 2009-09-01 19:36:00 +05:30
parent 62d89bf8f8
commit 5d4d5184b4
4 changed files with 6 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/gl-auth-command
View file

@ -29,14 +29,8 @@ our $REPO_BASE;
our %repos;
my $glrc = $ENV{HOME} . "/.gitolite.rc";
unless (my $ret = do $glrc)
{
die "parse $glrc failed: $@" if $@;
die "couldn't do $glrc: $!" unless defined $ret;
die "couldn't run $glrc" unless $ret;
}
die "couldnt do perms file" unless (my $ret = do $GL_CONF_COMPILED);
die "parse $glrc failed: " . ($! or $@) unless do $glrc;
die "parse $GL_CONF_COMPILED failed: " . ($! or $@) unless do $GL_CONF_COMPILED;
# ----------------------------------------------------------------------------
# definitions specific to this program