git-debrebase: wip cmd_record_ffq_prev

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

1 files changed, 11 insertions, 0 deletions

diff --git a/git-debrebase b/git-debrebase
index 2f34029..6f89fc2 100755
--- a/git-debrebase
+++ b/git-debrebase
@@ -1101,6 +1101,17 @@ END
     # 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;