git-svn: control destruction order to avoid segfault

diff --git a/git-svn.perl b/git-svn.perl
index aa242d4f4f4363736730ccfcb4c2694d5be9a670..b0129802465265e82037ad58e921465f4b951ab1 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -1199,6 +1199,11 @@ sub cmd_branch {
        $ctx->copy($src, $rev, $dst)
                unless $_dry_run;
 
+       # Release resources held by ctx before creating another SVN::Ra
+       # so destruction is orderly.  This seems necessary with SVN 1.9.5
+       # to avoid segfaults.
+       $ctx = undef;
+
        $gs->fetch_all;
 }