git-svn: reinstate the default SVN error handler after using get_log
authorEric Wong <normalperson@yhbt.net>
Tue, 30 Jan 2007 02:34:55 +0000 (18:34 -0800)
committerEric Wong <normalperson@yhbt.net>
Fri, 23 Feb 2007 08:57:10 +0000 (00:57 -0800)
We don't need our own error handler for other operations.  Also
add a message about the successfully do_switch or do_update in
follow-parent for debugging do_switch failures with svn:// and
svn+ssh:// connections.

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

index e387504b8819aeffdc602feb46b1f79cd5c01eb8..bbdaeea98a11dea4e3bbf717be665ea75e99ae81 100755 (executable)
@@ -1169,6 +1169,7 @@ sub find_parent_branch {
                                                1, $ed)
                          or die "SVN connection failed somewhere...\n";
                }
+               print STDERR "Successfully followed parent\n";
                $ed->{new_fetch} = 1;
                return $self->make_log_entry($rev, [$parent], $ed);
        }
@@ -2295,9 +2296,6 @@ sub gs_fetch_loop_common {
        my ($self, $base, $head, @gs) = @_;
        my $inc = 1000;
        my ($min, $max) = ($base, $head < $base + $inc ? $head : $base + $inc);
-       my $err_handler = $SVN::Error::handler;
-       my $err;
-       $SVN::Error::handler = sub { ($err) = @_; skip_unknown_revs($err); };
        my @paths = @gs == 1 ? ($gs[0]->{path}) : ('');
        foreach my $gs (@gs) {
                if (my $last_commit = $gs->last_commit) {
@@ -2307,8 +2305,16 @@ sub gs_fetch_loop_common {
        }
        while (1) {
                my @revs;
+               my $err;
+               my $err_handler = $SVN::Error::handler;
+               $SVN::Error::handler = sub {
+                       ($err) = @_;
+                       skip_unknown_revs($err);
+               };
                $self->get_log(\@paths, $min, $max, 0, 1, 1,
                    sub { push @revs, [ dup_changed_paths($_[0]), $_[1] ]; });
+               $SVN::Error::handler = $err_handler;
+
                if (! @revs && $err && $max >= $head) {
                        print STDERR "Branch probably deleted:\n  ",
                                     $err->expanded_message,
@@ -2335,7 +2341,6 @@ sub gs_fetch_loop_common {
                $max += $inc;
                $max = $head if ($max > $head);
        }
-       $SVN::Error::handler = $err_handler;
 }
 
 sub minimize_url {