}
sub cmd_clone {
+ parseopts();
my $dstdir;
die if defined $package;
if (@ARGV==1) {
}
sub cmd_fetch {
+ parseopts();
fetchpullargs();
fetch();
}
sub cmd_pull {
+ parseopts();
fetchpullargs();
pull();
}
sub cmd_push {
+ parseopts();
die if defined $package;
my $clogp = parsechangelog();
$package = $clogp->{Source};
}
sub cmd_build {
+ # we pass further options and args to git-buildpackage
die if defined $package;
my $clogp = parsechangelog();
$suite = $clogp->{Distribution};
parseopts();
die unless @ARGV;
my $cmd = shift @ARGV;
-parseopts();
{ no strict qw(refs); &{"cmd_$cmd"}(); }