aboutsummaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorMichael G. Schwern <schwern@pobox.com>2012-07-28 02:47:49 -0700
committerEric Wong <normalperson@yhbt.net>2012-08-02 21:46:02 +0000
commit8266fc8be19ef1405d4ef175bb0e75ebc2730f5d (patch)
tree7237da943bbcbe5cbeda23123fb72a66202342b9 /perl
parent9c27a57b2da502b7dd3736013b7a185fb6e5064e (diff)
downloadgit-8266fc8be19ef1405d4ef175bb0e75ebc2730f5d.tar.gz
git-8266fc8be19ef1405d4ef175bb0e75ebc2730f5d.tar.xz
git-svn: canonicalize earlier
Just a few things I noticed. Its good to canonicalize as early as possible. [ew: commit title] Signed-off-by: Eric Wong <normalperson@yhbt.net>
Diffstat (limited to 'perl')
-rw-r--r--perl/Git/SVN/Ra.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/Git/SVN/Ra.pm b/perl/Git/SVN/Ra.pm
index 268b368de..c88b2b91d 100644
--- a/perl/Git/SVN/Ra.pm
+++ b/perl/Git/SVN/Ra.pm
@@ -69,7 +69,7 @@ sub _auth_providers () {
sub new {
my ($class, $url) = @_;
- $url =~ s!/+$!!;
+ $url = canonicalize_url($url);
return $RA if ($RA && $RA->url eq $url);
::_req_svn();
@@ -101,7 +101,7 @@ sub new {
$Git::SVN::Prompt::_no_auth_cache = 1;
}
} # no warnings 'once'
- my $self = SVN::Ra->new(url => canonicalize_url($url), auth => $baton,
+ my $self = SVN::Ra->new(url => $url, auth => $baton,
config => $config,
pool => SVN::Pool->new,
auth_provider_callbacks => $callbacks);