Fossil Wrapper

Check-in [24053a7df2]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:regression fix in `clone' interceptor.
Timelines: family | ancestors | descendants | both | dresden
Files: files | file ages | folders
SHA1: 24053a7df2039d764a43fef38a06d5adcee58bdf
User & Date: j 2019-07-21 16:05:07
Context
2019-10-16
13:26
give up on hard-coding a list of valid commands (to decrease latency minimally) and use a dynamic list instead. check-in: a721f86fe9 user: j tags: dresden
2019-07-21
16:05
regression fix in `clone' interceptor. 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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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