git-deltatool: added a progress counter

Now shows "Commit N of M" so there is a sense of progress while
reviewing commit history

1 files changed, 4 insertions, 3 deletions

diff --git a/Porting/git-deltatool b/Porting/git-deltatool
index ae364cc788..1223d4d67c 100644
--- a/Porting/git-deltatool
+++ b/Porting/git-deltatool
@@ -93,7 +93,6 @@ sub assign {
   $self->_iterate_commits(
     sub {
       my $log = shift;
-      say "";
       say "-" x 75;
       $self->show_header($log);
       $self->show_body($log, 1);
@@ -110,7 +109,6 @@ sub review {
   $self->_iterate_commits(
     sub {
       my $log = shift;
-      say "";
       say "-" x 75;
       $self->show_header($log);
       $self->show_notes($log, 1);
@@ -178,7 +176,10 @@ sub _iterate_commits {
   my ($self, $fcn) = @_;
   my $type = $self->opt('type');
   say STDERR "Scanning for $type commits since " . $self->last_tag . "...";
-  for my $log ( $self->find_commits($type) ) {
+  my $list = [ $self->find_commits($type) ];
+  my $count = @$list;
+  while ( my ($i,$log) = each @$list ) {
+    say "\n### Commit @{[$i+1]} of $count ###";
     redo unless $fcn->($log);
   }
   return 1;