onwardpush();
}
+#----- git-upload-pack -----
+
+sub fixmissing__git_upload_pack () {
+ $destrepo = "$dgitrepos/_empty";
+}
+
+sub main__git_upload_pack () {
+ runcmd qw(git upload-pack), $destdir;
+}
+
#----- arg parsing and main program -----
sub argval () {
my $cmd = $ENV{'SSH_ORIGINAL_COMMAND'};
$cmd =~ m{
^
- (?:\S*/)?
- ([-0-9a-z]+)
+ (?: \S* / )?
+ ( [-0-9a-z]+ )
\s+
- (?:\S*/)?
- ($package_re)\.git
+ (?: \S* / )?
+ ($package_re) \.git
$
}ox
or reject "command string not understood";