768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
|
}
lappend alt [file join [lreplace $parts 0 1 branches $rev]]
lappend alt [file join [lreplace $parts 0 1 tags $rev]]
}
}
foreach tailAlt $alt {
set urlAlt $Root/[join $tailAlt /]
if {[catch {exec svn info $urlAlt} res]} {
continue
}
# Is it enough that svn info worked to check success? Seems so
return $urlAlt
}
return
}
|
|
|
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
|
}
lappend alt [file join [lreplace $parts 0 1 branches $rev]]
lappend alt [file join [lreplace $parts 0 1 tags $rev]]
}
}
foreach tailAlt $alt {
set urlAlt $Root/[join $tailAlt /]
if {[catch {exec svn "info" $urlAlt} res]} {
continue
}
# Is it enough that svn info worked to check success? Seems so
return $urlAlt
}
return
}
|