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>

1 files changed, 3 insertions, 2 deletions

diff --git a/git-svn.perl b/git-svn.perl
index ace31021e7..201418e09c 100755
--- 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;