git-svn: error checking for invalid [svn-remote "..."] sections

We don't end up trying to pass an undef URL over to SVN::Ra->new
because it'll segfault.

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

diff --git a/git-svn.perl b/git-svn.perl
index ace31021e745e36deadc19925bd6957530165a1e..201418e09c3168b683052ad8fdeccaf84a9330d3 100755 (executable)
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -753,9 +753,10 @@ sub parse_revision_argument {
 
 sub fetch_all {
        my ($repo_id, $remotes) = @_;
-       my $remote = $remotes->{$repo_id};
+       my $remote = $remotes->{$repo_id} or
+                    die "[svn-remote \"$repo_id\"] unknown\n";
        my $fetch = $remote->{fetch};
-       my $url = $remote->{url};
+       my $url = $remote->{url} or die "svn-remote.$repo_id.url not defined\n";
        my (@gs, @globs);
        my $ra = Git::SVN::Ra->new($url);
        my $uuid = $ra->get_uuid;