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

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

1 files changed, 5 insertions, 4 deletions

diff --git a/git-debrebase b/git-debrebase
index 24be35e..0d3162f 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";
     };