From befc7190d7fdafd824c5a338362ab266761c6e75 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Wed, 3 Nov 2010 15:37:39 +1000 Subject: Fix some problems with the packaging system Loadable modules should be tried before script packages. If a script accidentally tried to require itself, infinite recursion resulted. It is a bad idea to name a script the same as an extension/package. Also, keep the package name off the stack. Signed-off-by: Steve Bennett --- examples/sqlite3.tcl | 8 -------- examples/sqlite3test.tcl | 10 ++++++++++ 2 files changed, 10 insertions(+), 8 deletions(-) delete mode 100644 examples/sqlite3.tcl create mode 100644 examples/sqlite3test.tcl (limited to 'examples') diff --git a/examples/sqlite3.tcl b/examples/sqlite3.tcl deleted file mode 100644 index 9365cdf..0000000 --- a/examples/sqlite3.tcl +++ /dev/null @@ -1,8 +0,0 @@ -set db [sqlite3.open :memory:] -$db query {CREATE TABLE plays (id, author, title)} -$db query {INSERT INTO plays (id, author, title) VALUES (1, 'Goethe', 'Faust');} -$db query {INSERT INTO plays (id, author, title) VALUES (2, 'Shakespeare', 'Hamlet');} -$db query {INSERT INTO plays (id, author, title) VALUES (3, 'Sophocles', 'Oedipus Rex');} -set res [$db query "SELECT * FROM plays"] -$db close -foreach r $res {puts $r(author)} diff --git a/examples/sqlite3test.tcl b/examples/sqlite3test.tcl new file mode 100644 index 0000000..982dd8a --- /dev/null +++ b/examples/sqlite3test.tcl @@ -0,0 +1,10 @@ +package require sqlite3 + +set db [sqlite3.open :memory:] +$db query {CREATE TABLE plays (id, author, title)} +$db query {INSERT INTO plays (id, author, title) VALUES (1, 'Goethe', 'Faust');} +$db query {INSERT INTO plays (id, author, title) VALUES (2, 'Shakespeare', 'Hamlet');} +$db query {INSERT INTO plays (id, author, title) VALUES (3, 'Sophocles', 'Oedipus Rex');} +set res [$db query "SELECT * FROM plays"] +$db close +foreach r $res {puts $r(author)} -- cgit v1.1