Posted to tcl by aspect at Wed Oct 11 14:22:34 GMT 2017view raw

  1. $ echo 'package require sqlite3; sqlite3 db {}; set a 1; puts [db eval {select $a = 1}]' > lol.tcl
  2. [aspect@doranovich ~]$ tclsh lol.tcl
  3. 0
  4. [aspect@doranovich ~]$ tclsh
  5. % source lol.tcl
  6. 1
  7.