$cmd =~ m{
^
(?:\S*/)?
- (?:dgit-repos-push-receiver|git-receive-pack)
+ (git-receive-pack|git-upload-pack)
\s+
(?:\S*/)?
($package_re)\.git
$
}ox
or die "requested command $cmd not understood";
- $pkg = $1;
+ $method = $1;
+ $pkg = $2;
} else {
die;
}
sub main () {
parseargs();
+fixme check method;
makeworkingclone();
setupstunthook();
runcmd qw(git receive-pack), $destdir;