Changeset 455a6d5 in tol for tolbase/lib/toltk/tolpkg.tcl


Ignore:
Timestamp:
Jan 11, 2012, 10:17:10 AM (15 years ago)
Author:
Jorge Pérez <josp.jorge@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
35458ba
Parents:
0db54a1
Message:

refs #1191, se implementa UpdateAll y UpgradeAll

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4006 be4846ae-f051-483a-831f-b64e7d08527f

File:
1 edited

Legend:

Unmodified
Added
Removed

  • tolbase/lib/toltk/tolpkg.tcl

    r0db54a1 r455a6d5  
    221221    Real TolPackage::Client::RemoteInstall( "%r", "%p", 1 )
    222222  } ]
    223   set result [ toltcl::eval $tolexpr ]
     223  if { [ catch  { toltcl::eval $tolexpr } result ] } {
     224    set result 0
     225  }
    224226  if { [ string is boolean $result ] && $result } {
    225227    DeleteBackup $pkg
    226228  } else {
    227     RestoreBackup $pkg
     229    RestoreBackup $pkg 1
    228230  }
    229231  return $result
Note: See TracChangeset for help on using the changeset viewer.