git-svn: migrations default to [svn-remote "git-svn"]

It looks better (like [remote "origin"]) instead of whatever
refname came up first in our directory traversal.  Of course
--remote= overrides this.

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

diff --git a/git-svn.perl b/git-svn.perl
index ad2ef53f8d22e60e4dc8dfc6b20955439544660e..de14ed435731b53d0a349f3f3ecf3446235ba164 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -2945,7 +2945,10 @@ sub migrate_from_v2 {
        my $migrated = 0;
 
        foreach my $ref_id (sort keys %l_map) {
-               Git::SVN->init($l_map{$ref_id}, '', $ref_id, $ref_id);
+               eval { Git::SVN->init($l_map{$ref_id}, '', undef, $ref_id) };
+               if ($@) {
+                       Git::SVN->init($l_map{$ref_id}, '', $ref_id, $ref_id);
+               }
                $migrated++;
        }
        $migrated;