git-svn: canonicalize earlier
[gitweb.git] / git-svn.perl
index 6e975457f91f8bbbd0a84e04f5af1e2b976eb4de..6b9076599bbb5ac0b48b617b80e4647ed037f48e 100755 (executable)
@@ -1436,16 +1436,16 @@ sub cmd_info {
        # canonicalize_path() will return "" to make libsvn 1.5.x happy,
        $path = "." if $path eq "";
 
-       my $full_url = $url . ($fullpath eq "" ? "" : "/$fullpath");
+       my $full_url = canonicalize_url( $url . ($fullpath eq "" ? "" : "/$fullpath") );
 
        if ($_url) {
-               print canonicalize_url($full_url), "\n";
+               print "$full_url\n";
                return;
        }
 
        my $result = "Path: $path\n";
        $result .= "Name: " . basename($path) . "\n" if $file_type ne "dir";
-       $result .= "URL: " . canonicalize_url($full_url) . "\n";
+       $result .= "URL: $full_url\n";
 
        eval {
                my $repos_root = $gs->repos_root;