Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | regression fix in `clone' interceptor. |
|---|---|
| Timelines: | family | ancestors | dresden |
| Files: | files | file ages | folders |
| SHA1: |
24053a7df2039d764a43fef38a06d5ad |
| User & Date: | j 2019-07-21 16:05:07 |
Context
|
2019-07-21
| ||
| 16:05 | regression fix in `clone' interceptor. Leaf check-in: 24053a7df2 user: j tags: dresden | |
| 15:42 | minor tidy up: avoid redundant sub-pattern captures in `regsub'. check-in: 5a2358d8c3 user: j tags: dresden | |
Changes
Changes to fsl.
914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 |
puts "$checkout: file exists"
exit 1
}
if {[catch {file mkdir $checkout} msg]} {
puts $msg
exit 1
} else {
cd $checkout
lappend params $defaultName
puts "cloning to ./$checkout ..."
if {[catch {exec fossil {*}$params} msg]} {
puts $msg
exit 1
} else {
if {[catch {exec fossil open $defaultName} msg]} {
puts $msg
|
< | |
914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 |
puts "$checkout: file exists"
exit 1
}
if {[catch {file mkdir $checkout} msg]} {
puts $msg
exit 1
} else {
lappend params $checkout/$defaultName
puts "cloning to ./$checkout ..."
if {[catch {exec fossil {*}$params} msg]} {
puts $msg
exit 1
} else {
if {[catch {exec fossil open $defaultName} msg]} {
puts $msg
|