summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xdgit12
1 files changed, 8 insertions, 4 deletions
diff --git a/dgit b/dgit
index c344d31..c17b42a 100755
--- a/dgit
+++ b/dgit
@@ -4492,9 +4492,9 @@ END
pull();
}
-sub cmd_push {
+sub prep_push () {
parseopts();
- badusage "-p is not allowed with dgit push" if defined $package;
+ badusage "-p is not allowed with dgit $subcommand" if defined $package;
check_not_dirty();
my $clogp = parsechangelog();
$package = getfield $clogp, 'Source';
@@ -4503,7 +4503,7 @@ sub cmd_push {
} elsif (@ARGV==1) {
($specsuite) = (@ARGV);
} else {
- badusage "incorrect arguments to dgit push";
+ badusage "incorrect arguments to dgit $subcommand";
}
$isuite = getfield $clogp, 'Distribution';
pushing();
@@ -4516,9 +4516,13 @@ sub cmd_push {
if (defined $specsuite &&
$specsuite ne $isuite &&
$specsuite ne $csuite) {
- fail "dgit push: changelog specifies $isuite ($csuite)".
+ fail "dgit $subcommand: changelog specifies $isuite ($csuite)".
" but command line specifies $specsuite";
}
+}
+
+sub cmd_push {
+ prep_push();
dopush();
}