git-svn: Print revision while searching for earliest use of path

diff --git a/git-svn.perl b/git-svn.perl
index b0ae05bc408bb33c04ad9d177fe9247b3388b392..9baf8221c36be4e6ce16619bd29c4104b00ca8e7 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -4376,6 +4376,9 @@ sub gs_fetch_loop_common {
                }
                $self->get_log([$longest_path], $min, $max, 0, 1, 1,
                               sub { $revs{$_[1]} = _cb(@_) });
+               if ($err) {
+                       print "Checked through r$max\r";
+               }
                if ($err && $max >= $head) {
                        print STDERR "Path '$longest_path' ",
                                     "was probably deleted:\n",