From: Michael G. Schwern <schwern@pobox.com>
Date: Sat, 28 Jul 2012 09:38:32 +0000 (-0700)
Subject: Git::SVN{,::Ra}: canonicalize earlier
X-Git-Tag: v1.8.0-rc0~155^2~8
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=565e56c2cc7ebe42ad12ee5970f3d5af1dc3f36c;p=git.git

Git::SVN{,::Ra}: canonicalize earlier

This canonicalizes paths and urls as early as possible so we don't
have to remember to do it at the point of use.  It will fix a swath
of SVN 1.7 problems in one go.

Its ok to double canonicalize things.

SVN 1.7 still fails, still not worrying about that.

[ew: commit title]

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

diff --git a/perl/Git/SVN.pm b/perl/Git/SVN.pm
index ff747821f..dacac7fb4 100644
--- a/perl/Git/SVN.pm
+++ b/perl/Git/SVN.pm
@@ -27,6 +27,8 @@ use Git::SVN::Utils qw(
 	fatal
 	can_compress
 	join_paths
+	canonicalize_path
+	canonicalize_url
 );
 
 my $can_use_yaml;
@@ -2304,7 +2306,7 @@ sub path {
 
 	if (@_) {
 		my $path = shift;
-		$self->{path} = $path;
+		$self->{path} = canonicalize_path($path);
 		return;
 	}
 
@@ -2316,7 +2318,7 @@ sub url {
 
 	if (@_) {
 		my $url = shift;
-		$self->{url} = $url;
+		$self->{url} = canonicalize_url($url);
 		return;
 	}
 
diff --git a/perl/Git/SVN/Ra.pm b/perl/Git/SVN/Ra.pm
index 9234bf99e..77bceb913 100644
--- a/perl/Git/SVN/Ra.pm
+++ b/perl/Git/SVN/Ra.pm
@@ -3,6 +3,10 @@ use vars qw/@ISA $config_dir $_ignore_refs_regex $_log_window_size/;
 use strict;
 use warnings;
 use SVN::Client;
+use Git::SVN::Utils qw(
+	canonicalize_url
+);
+
 use SVN::Ra;
 BEGIN {
 	@ISA = qw(SVN::Ra);
@@ -137,7 +141,7 @@ sub url {
 
 	if (@_) {
 		my $url = shift;
-		$self->{url} = $url;
+		$self->{url} = canonicalize_url($url);
 		return;
 	}