git-svn: gracefully handle --follow-parent failures

We don't always know that a path will exist at a particular
revision.

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

diff --git a/git-svn.perl b/git-svn.perl
index cc5736d793c1c286c763b50d5c15423816126f43..b2f86e84b4f219670d272ff829e766f2e1e7e67a 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -1055,8 +1055,11 @@ sub find_parent_branch {
        my ($self, $paths, $rev) = @_;
        return undef unless $_follow_parent;
        unless (defined $paths) {
+               my $err_handler = $SVN::Error::handler;
+               $SVN::Error::handler = \&Git::SVN::Ra::skip_unknown_revs;
                $self->ra->get_log([$self->{path}], $rev, $rev, 0, 1, 1,
                                   sub { $paths = dup_changed_paths($_[0]) });
+               $SVN::Error::handler = $err_handler;
        }
        return undef unless defined $paths;