git-svn: correctly handle the -q flag in SVN::Git::Fetcher

Signed-off-by: Eric Wong <normalperson@yhbt.net>

diff --git a/git-svn.perl b/git-svn.perl
index 7664b385f6debfd46e4046d9367f0484a4638827..ed363e972df88cb0eb8e3f2a89dbcf00e162c192 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -1770,14 +1770,14 @@ sub delete_entry {
                while (<$ls>) {
                        chomp;
                        $self->{gii}->remove($_);
                while (<$ls>) {
                        chomp;
                        $self->{gii}->remove($_);

-                       print "\tD\t$_\n" unless $self->{q};
+                       print "\tD\t$_\n" unless $::_q;

                }
                }

-               print "\tD\t$gpath/\n" unless $self->{q};
+               print "\tD\t$gpath/\n" unless $::_q;

                command_close_pipe($ls, $ctx);
                $self->{empty}->{$path} = 0
        } else {
                $self->{gii}->remove($gpath);
                command_close_pipe($ls, $ctx);
                $self->{empty}->{$path} = 0
        } else {
                $self->{gii}->remove($gpath);

-               print "\tD\t$gpath\n" unless $self->{q};
+               print "\tD\t$gpath\n" unless $::_q;

        }
        undef;
 }
        }
        undef;
 }


@@ -1913,7 +1913,7 @@ sub close_file {
        }
        $fb->{pool}->clear;
        $self->{gii}->update($fb->{mode_b}, $hash, $path) or croak $!;
        }
        $fb->{pool}->clear;
        $self->{gii}->update($fb->{mode_b}, $hash, $path) or croak $!;

-       print "\t$fb->{action}\t$path\n" if $fb->{action} && ! $self->{q};
+       print "\t$fb->{action}\t$path\n" if $fb->{action} && ! $::_q;

        undef;
 }
 
        undef;
 }