diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-11-03 15:37:39 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-11-03 18:57:02 +1000 |
| commit | befc7190d7fdafd824c5a338362ab266761c6e75 (patch) | |
| tree | 5e7d51430457fd68be9867683b2bbaa274efe637 /examples | |
| parent | a2629855bac0ccb37e63d30a77ffe2da01fe4c12 (diff) | |
| download | jimtcl-befc7190d7fdafd824c5a338362ab266761c6e75.zip jimtcl-befc7190d7fdafd824c5a338362ab266761c6e75.tar.gz jimtcl-befc7190d7fdafd824c5a338362ab266761c6e75.tar.bz2 | |
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 <steveb@workware.net.au>
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/sqlite3test.tcl (renamed from examples/sqlite3.tcl) | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/examples/sqlite3.tcl b/examples/sqlite3test.tcl index 9365cdf..982dd8a 100644 --- a/examples/sqlite3.tcl +++ b/examples/sqlite3test.tcl @@ -1,3 +1,5 @@ +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');} |