From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 10 Aug 2018 08:59:09 +0000 (+0100)
Subject: git-debrebase: walk: Introduce $report_lprefix (nfc)
X-Git-Tag: archive/debian/6.7~163
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=commitdiff_plain;h=1d40cf793435df8be77fd789ada3faa18c480f8e

git-debrebase: walk: Introduce $report_lprefix (nfc)

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

diff --git a/git-debrebase b/git-debrebase
index 24be35e3..0d3162fd 100755
--- a/git-debrebase
+++ b/git-debrebase
@@ -661,14 +661,15 @@ sub keycommits ($;$$$$) {
     return ($anchor, $breakwater);
 }
 
-sub walk ($;$$);
-sub walk ($;$$) {
+sub walk ($;$$$);
+sub walk ($;$$$) {
     my ($input,
-	$nogenerate,$report) = @_;
+	$nogenerate,$report, $report_lprefix) = @_;
     # => ($tip, $breakwater_tip, $last_anchor)
     # (or nothing, if $nogenerate)
 
     printdebug "*** WALK $input ".($nogenerate//0)." ".($report//'-')."\n";
+    $report_lprefix //= '';
 
     # go through commits backwards
     # we generate two lists of commits to apply:
@@ -700,7 +701,7 @@ sub walk ($;$$) {
 
     my $prline = sub {
 	return unless $report;
-	print $report $prdelim, @_;
+	print $report $prdelim, $report_lprefix, @_;
 	$prdelim = "\n";
     };