git-svn: error checking for invalid [svn-remote "..."] sections
authorEric Wong <normalperson@yhbt.net>
Thu, 15 Feb 2007 02:38:46 +0000 (18:38 -0800)
committerEric Wong <normalperson@yhbt.net>
Fri, 23 Feb 2007 08:57:13 +0000 (00:57 -0800)
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>
git-svn.perl

index ace3102..201418e 100755 (executable)
@@ -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;