build_clone: When guessing vcs from url suffix, strip cache info

We assume that anything not containing `/'s after `%20' is
uninteresting.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index 4187b6cf08c9c3865527040e58faf0055fec8424..93c8fcf8501c193009b145aeefc391d60c26efbc 100644 (file)
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -1045,13 +1045,16 @@ sub build_clone ($$$$) {
     my $timeout= 4000;
 
     my $vcs = $r{"treevcs_$which"};
-    if (defined $vcs) {
-    } elsif ($tree =~ m/\.hg$/) {
-        $vcs= 'hg';
-    } elsif ($tree =~ m/\.git$/) {
-        $vcs= 'git';
-    } else {
-        die "unknown vcs for $which $tree ";
+    if (!defined $vcs) {
+       my $effurl = $tree;
+       $effurl =~ s#\%20[^/]*$##;
+       if ($effurl =~ m/\.hg$/) {
+           $vcs= 'hg';
+       } elsif ($effurl =~ m/\.git$/) {
+           $vcs= 'git';
+       } else {
+           die "unknown vcs for $which $tree ";
+       }
     }
 
     if ($vcs eq 'hg') {