X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=git-debrebase;h=630b8c261967d30838310f5465502952bfcd5cb1;hp=2e0882dfa6e2c9c70646d646c07db591e4c8b6e7;hb=b68ef4ba62ce372148911de6a9c9b0f69f78c4d8;hpb=03979a8b3d7b3bec886f37d1c8358bdc79bc97c9

diff --git a/git-debrebase b/git-debrebase
index 2e0882df..630b8c26 100755
--- a/git-debrebase
+++ b/git-debrebase
@@ -428,9 +428,15 @@ sub any_snags () {
     return $snags_forced || $snags_tripped;
 }
 
-sub record_gdrlast ($$) {
-    my ($gdrlast, $newvalue) = @_;
-    push @deferred_updates, "update $gdrlast $newvalue $git_null_obj";
+sub ffq_prev_branchinfo () {
+    my $current = git_get_symref();
+    return gdr_ffq_prev_branchinfo($current);
+}
+
+sub record_gdrlast ($$;$) {
+    my ($gdrlast, $newvalue, $oldvalue) = @_;
+    $oldvalue ||= $git_null_obj;
+    push @deferred_updates, "update $gdrlast $newvalue $oldvalue";
 }
 
 sub gbp_pq_export ($$$) {
@@ -1740,11 +1746,6 @@ sub cmd_analyse () {
     STDOUT->error and die $!;
 }
 
-sub ffq_prev_branchinfo () {
-    my $current = git_get_symref();
-    return gdr_ffq_prev_branchinfo($current);
-}
-
 sub ffq_check ($;$$) {
     # calls $ff and/or $notff zero or more times
     # then returns either (status,message) where status is