diff options
| author |  Michael G. Schwern <schwern@pobox.com> | 2012-07-28 02:47:49 -0700 |
|---|---|---|
| committer |  Eric Wong <normalperson@yhbt.net> | 2012-08-02 21:46:02 +0000 |
| commit | 8266fc8be19ef1405d4ef175bb0e75ebc2730f5d (patch) | |
| tree | 7237da943bbcbe5cbeda23123fb72a66202342b9 /perl | |
| parent | git-svn: replace URL escapes with canonicalization (diff) | |
| download | tgif-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.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/Git/SVN/Ra.pm b/perl/Git/SVN/Ra.pm index 268b368de3..c88b2b91da 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); |