Posted to tcl by aspect at Wed Oct 11 14:22:34 GMT 2017view pretty
$ echo 'package require sqlite3; sqlite3 db {}; set a 1; puts [db eval {select $a = 1}]' > lol.tcl
[aspect@doranovich ~]$ tclsh lol.tcl
0
[aspect@doranovich ~]$ tclsh
% source lol.tcl
1