finish 8;
}
-sub getoptions {
+sub getoptions_main {
my $m = shift;
local $SIG{__WARN__}; # GetOptions calls `warn' to print messages
GetOptions @_ or badusage $m;
}
+sub getoptions {
+ my $sc = shift;
+ getoptions_main "bad options follow \`git-debrebase $sc'", @_;
+}
sub cfg ($;$) {
my ($k, $optional) = @_;
sub cmd_stitch () {
my $prose = 'stitch';
- getoptions("bad options follow \`git-debrebase stitch'",
+ getoptions("stitch",
'prose=s', \$prose);
badusage "no arguments allowed" if @ARGV;
do_stitch $prose, 0;
sub cmd_make_patches () {
my $opt_quiet_would_amend;
- getoptions("bad options follow \`git-debrebase make-patches'",
+ getoptions("make-patches",
'quiet-would-amend!', \$opt_quiet_would_amend);
badusage "no arguments allowed" if @ARGV;
my $old_head = get_head();
}
}
-getoptions("bad options\n",
+getoptions_main
+ ("bad options\n",
"D+" => \$debuglevel,
'noop-ok', => \$opt_noop_ok,
'f=s' => \@snag_force_opts,