From 501c70b8f09105d8a01131fcc63478f11268441e Mon Sep 17 00:00:00 2001 From: Sitaram Chamarty Date: Wed, 8 Aug 2012 04:37:57 +0530 Subject: [PATCH] add package quals --- src/commands/git-annex-shell | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/commands/git-annex-shell b/src/commands/git-annex-shell index 7f5310e..a32ac20 100755 --- a/src/commands/git-annex-shell +++ b/src/commands/git-annex-shell @@ -28,7 +28,7 @@ die "bad git-annex-shell command: $cmd" my $start = $1; my $repo = $2; my $end = $3; -die "I dont like some of the characters in $repo\n" unless $repo =~ $REPONAME_PATT; +die "I dont like some of the characters in $repo\n" unless $repo =~ $Gitolite::Rc::REPONAME_PATT; die "I dont like absolute paths in $cmd\n" if $repo =~ /^\//; die "I dont like '..' paths in $cmd\n" if $repo =~ /\.\./; @@ -52,7 +52,7 @@ $ENV{GIT_ANNEX_SHELL_LIMITED} = 1; # Instead it is passed as a single parameter to git-annex-shell for # it to parse and handle the command. This is why we do not need to # fully validate $cmd above. -gl_log( $ENV{SSH_ORIGINAL_COMMAND} ); +Gitolite::Common::gl_log( $ENV{SSH_ORIGINAL_COMMAND} ); exec "git-annex-shell", "-c", $newcmd; __END__