X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;f=git-svn.perl;h=d0758107249f3743795d0961d36906452ac7d00a;hb=309883015ff3af6ce14ff9fe401e06cfce8adb13;hp=9808597a1879a509eb9b896d46d0e69c252786f8;hpb=eaa14ff8c7dbe51dfdfe7e2d9ede839fc62dcf52;p=git.git

diff --git a/git-svn.perl b/git-svn.perl
index 9808597a1..d07581072 100755
--- a/git-svn.perl
+++ b/git-svn.perl
@@ -4005,7 +4005,7 @@ sub repo_path {
 sub url_path {
 	my ($self, $path) = @_;
 	if ($self->{url} =~ m#^https?://#) {
-		$path =~ s/([^~a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
+		$path =~ s!([^~a-zA-Z0-9_./-])!uc sprintf("%%%02x",ord($1))!eg;
 	}
 	$self->{url} . '/' . $self->repo_path($path);
 }
@@ -4831,7 +4831,11 @@ sub minimize_url {
 	my $c = '';
 	do {
 		$url .= "/$c" if length $c;
-		eval { (ref $self)->new($url)->get_latest_revnum };
+		eval {
+			my $ra = (ref $self)->new($url);
+			my $latest = $ra->get_latest_revnum;
+			$ra->get_log("", $latest, 0, 1, 0, 1, sub {});
+		};
 	} while ($@ && ($c = shift @components));
 	$url;
 }