Index: openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl 1 Oct 2017 12:16:05 -0000 1.6 +++ openacs-4/packages/acs-tcl/tcl/xml-0-sgml-procs.tcl 17 Jan 2018 21:45:20 -0000 1.7 @@ -1217,7 +1217,7 @@ } # Construct the followpos functions - catch {unset var} + unset -nocomplain var followpos $state $st $firstpos $lastpos # Construct transition table Index: openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl,v diff -u -r1.6 -r1.7 --- openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl 1 Oct 2017 12:16:05 -0000 1.6 +++ openacs-4/packages/acs-tcl/tcl/xml-1-dom-procs.tcl 17 Jan 2018 21:45:20 -0000 1.7 @@ -165,7 +165,7 @@ 1 { # Use array name provided. Should check that it is safe. set name [lindex $args 0] - catch {unset $name} + unset -nocomplain $name } default { return -code error "wrong number of arguments" @@ -211,16 +211,17 @@ ## upvar #0 $node(docArray) docArray for {set i 0} {$i < $docArray(counter)} {incr i} { - catch {unset ${docArrayName}var$i} - catch {unset ${docArrayName}arr$i} + unset -nocomplain ${docArrayName}var$i + unset -nocomplain ${docArrayName}arr$i } ## ## Then release the main document array ## - if {[catch {unset $node(docArray)}]} { + if {![info exists $node(docArray)]} { return -code error "unable to destroy document" } + unset -nocomplain $node(docArray) return {} @@ -305,7 +306,7 @@ $parser configure -final true } elseif {[catch {$parser parse [lindex $args 0]} err]} { catch {rename $parser {}} - catch {unset $state} + unset -nocomplain $state return -code error $err } @@ -1248,7 +1249,7 @@ } upvar #0 $node(element:attributeList) attrList - catch {unset attrList([lindex $args 0])} + unset -nocomplain attrList([lindex $args 0]) } @@ -1307,7 +1308,7 @@ if {$node(node:nodeType) ne "documentFragment" } { foreach child [set $node(node:childNodes)] { - catch {unset childNode} + unset -nocomplain childNode array set childNode [set $child] if {$childNode(node:nodeType) eq "element" && [GetField childNode(node:nodeName)] eq $name @@ -1317,7 +1318,7 @@ } } elseif {[llength $node(document:documentElement)]} { # Document Element must exist and must be an element type node - catch {unset childNode} + unset -nocomplain childNode array set childNode [set $node(document:documentElement)] if {$childNode(node:nodeName) eq $name } { set result $node(document:documentElement) @@ -1362,7 +1363,7 @@ PutHandle $textNode text } else { set textNode $n - catch {unset text} + unset -nocomplain text array set text [array get child] } } @@ -1598,7 +1599,7 @@ set result {} foreach childToken [set $node(node:childNodes)] { - catch {unset child} + unset -nocomplain child array set child [set $childToken] append result [eval [list Serialize:$child(node:nodeType) $childToken] $args] } Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v diff -u -r1.56 -r1.57 --- openacs-4/packages/acs-templating/tcl/widget-procs.tcl 5 Dec 2017 15:37:18 -0000 1.56 +++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl 17 Jan 2018 21:45:20 -0000 1.57 @@ -164,7 +164,7 @@ if { [llength $persons] == 0 && [llength $groups_relsegs] == 0 } { # no search results so return text entry back to the user - catch { unset element(options) } + unset -nocomplain element(options) template::element::set_error $element(form_id) $element_id " No matches were found for \"$search_string\".
Please Index: openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl,v diff -u -r1.11 -r1.12 --- openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl 21 Oct 2017 13:07:27 -0000 1.11 +++ openacs-4/packages/xotcl-core/tcl/50-protocol-handler-procs.tcl 17 Jan 2018 21:50:57 -0000 1.12 @@ -63,7 +63,7 @@ # developer support will add all its output to a single var, which # can lead easily to running out of resources in busy sites. When # unset, the developer support will create its own id. - catch {unset ::ad_conn(request)} + unset -nocomplain ::ad_conn(request) set :uri [ns_urldecode [ns_conn url]] if {[string length ${:uri}] < [string length ${:url}]} {append :uri /} set url_regexp "^${:url}" Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v diff -u -r1.338 -r1.339 --- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 21 Dec 2017 20:44:58 -0000 1.338 +++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl 17 Jan 2018 21:50:57 -0000 1.339 @@ -1546,7 +1546,7 @@ foreach css [$context_package_id get_parameter extra_css ""] {::xo::Page requireCSS -order 10 $css} # refetch template_file, since it might have been changed via set-parameter # the cache flush (next line) is not pretty here and should be supported from xotcl-core - catch {::xo::cc unset cache([list $context_package_id get_parameter template_file])} + ::xo::cc unset -nocomplain cache([list $context_package_id get_parameter template_file]) set template_file [:query_parameter "template_file" \ [::$context_package_id get_parameter template_file view-default]] #