X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=git-debrebase;h=2b38d4f85d2cdb89f95b3af03627d09b3516a5e8;hp=902d8a86c58d7bd07c5cec2818fffbb2ca67d022;hb=a87e08ae2e6861e87a386dd5c621e3da9c5d41d1;hpb=eab4301d9d4a6c18f92f4dc0fb4fcb3b6b2ff4ae diff --git a/git-debrebase b/git-debrebase index 902d8a86..2b38d4f8 100755 --- a/git-debrebase +++ b/git-debrebase @@ -22,9 +22,9 @@ # usages: # # git-debrebase [] new-upstream-v0 \ -# \ +# [ \ # [ ...] \ -# [...] +# [...]] # # git-debrebase [ --] [] # git-debrebase [] analyse @@ -1025,13 +1025,15 @@ sub cmd_new_upstream_v0 () { my %pieces; - badusage "need NEW-VERSION UPS-COMMITTISH" unless @ARGV >= 2; + badusage "need NEW-VERSION [UPS-COMMITTISH]" unless @ARGV >= 1; # parse args - low commitment my $new_version = (new Dpkg::Version scalar(shift @ARGV), check => 1); my $new_upstream_version = $new_version->version(); - my $new_upstream = git_rev_parse shift @ARGV; + my $new_upstream = git_rev_parse (shift @ARGV // 'upstream'); + + record_ffq_auto(); my $piece = sub { my ($n, @x) = @_; # may be ''