diff options
Diffstat (limited to 'www/neowebscript/files/patch-db')
-rw-r--r-- | www/neowebscript/files/patch-db | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/www/neowebscript/files/patch-db b/www/neowebscript/files/patch-db new file mode 100644 index 000000000000..02edd6c63025 --- /dev/null +++ b/www/neowebscript/files/patch-db @@ -0,0 +1,29 @@ +--- ../neowebscript/db.tcl Fri Nov 19 19:36:10 1999 ++++ ../neowebscript/db.tcl Mon Sep 3 14:02:50 2001 +@@ -6,6 +6,8 @@ + # for the trusted interp + # + ++package require Neo ++ + proc dbtransaction {code args} { + global errorCode parallelDir webenv + +@@ -115,7 +117,7 @@ + if {[catch {db open $dbFileName hash cl 0664} db] == 1} { + create_user_dir db + if {[catch {db open $dbFileName hash cl 0664} db] == 1} { +- return -code error "$dbFileName: $errorCode" $errorInfo ++ return -code error "$dbFileName: $errorCode $errorInfo" + } + } + +@@ -271,7 +273,7 @@ + if {[catch {db open $dbFileName hash cl 0664} db] == 1} { + create_user_dir db + if {[catch {db open $dbFileName hash cl 0664} db] == 1} { +- return -code error "$dbFileName: $errorCode" $errorInfo ++ return -code error "$dbFileName: $errorCode $errorInfo" + } + } + |