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

diff --git a/perl/Git/SVN/Ra.pm b/perl/Git/SVN/Ra.pm
index 9234bf99e80796b0095ccdc5d1c32e1b3ef30367..77bceb913ab866b9552487879394b6adc84567b4 100644 (file)
--- a/perl/Git/SVN/Ra.pm
+++ b/perl/Git/SVN/Ra.pm
@@ -3,6 +3,10 @@ package Git::SVN::Ra;
 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;
        }