send-email: refactor and ensure prompting doesn't loop forever

diff --git a/git-svn.perl b/git-svn.perl
index f21cfb462d3d6d84a4c47bca3d5882ee20266ff7..e5c3dfe5d2c9d11c6225da725d86f343912f5782 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -2331,13 +2331,13 @@ sub do_git_commit {
 
        $self->{last_rev} = $log_entry->{revision};
        $self->{last_commit} = $commit;
-       print "r$log_entry->{revision}";
+       print "r$log_entry->{revision}" unless $::_q;
        if (defined $log_entry->{svm_revision}) {
-                print " (\@$log_entry->{svm_revision})";
+                print " (\@$log_entry->{svm_revision})" unless $::_q;
                 $self->rev_map_set($log_entry->{svm_revision}, $commit,
                                   0, $self->svm_uuid);
        }
-       print " = $commit ($self->{ref_id})\n";
+       print " = $commit ($self->{ref_id})\n" unless $::_q;
        if (--$_gc_nr == 0) {
                $_gc_nr = $_gc_period;
                gc();