git-debrebase: wip cmd_record_ffq_prev

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/git-debrebase b/git-debrebase
index 2f34029a996e3cbeff566806e93789832a67489a..6f89fc26a988edc24e101aa7c583c4b14de300ca 100755 (executable)
--- a/git-debrebase
+++ b/git-debrebase
@@ -1101,6 +1101,17 @@ END
     # now it's for the user to sort out
 }
 
     # now it's for the user to sort out
 }
 

+sub cmd_record_ffq_prev () {
+    badusage "no arguments allowed" if @ARGV;
+    my ($status, $msg) = record_ffq_prev();
+    if ($status eq 'exists' && $opt_noop_ok) {
+       print "Previous head already recorded\n" or die $!;
+    } elsif ($status eq 'written') {
+    } else {
+       fail "Could not preserve: $msg";
+    }
+}
+

 sub cmd_gbp2debrebase () {
     badusage "needs 1 optional argument, the upstream" unless @ARGV<=1;
     my ($upstream_spec) = @ARGV;
 sub cmd_gbp2debrebase () {
     badusage "needs 1 optional argument, the upstream" unless @ARGV<=1;
     my ($upstream_spec) = @ARGV;