Index: openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl,v diff -u -r1.9 -r1.9.18.1 --- openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl 12 Mar 2004 18:48:55 -0000 1.9 +++ openacs-4/packages/acs-tcl/tcl/acs-kernel-procs.tcl 25 Aug 2014 09:29:02 -0000 1.9.18.1 @@ -39,7 +39,7 @@ # define util_memoize with proc here to avoid error messages about multiple # defines. if { ![db_table_exists apm_packages] || ![db_table_exists site_nodes] } { - proc util_memoize {script {max_age ""}} {eval $script} + proc util_memoize {script {max_age ""}} {{*}$script} return 0 } set kernel_install_p [apm_package_installed_p acs-kernel] @@ -51,7 +51,7 @@ if { $kernel_install_p && $admin_exists_p} { return 1 } else { - proc util_memoize {script {max_age ""}} {eval $script} + proc util_memoize {script {max_age ""}} {{*}$script} return 0 } } Index: openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl,v diff -u -r1.2.10.4 -r1.2.10.5 --- openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl 2 Oct 2013 22:55:54 -0000 1.2.10.4 +++ openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl 25 Aug 2014 09:29:02 -0000 1.2.10.5 @@ -97,7 +97,7 @@ Evaluates __code in a separate stack frame. } { - eval $__code + {*}$__code } ad_proc -public doc_adp_abort {} { Index: openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl,v diff -u -r1.35.8.17 -r1.35.8.18 --- openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl 23 Aug 2014 11:23:43 -0000 1.35.8.17 +++ openacs-4/packages/acs-tcl/tcl/apm-file-procs.tcl 25 Aug 2014 09:29:02 -0000 1.35.8.18 @@ -188,7 +188,7 @@ } lappend cmd "|" [apm_gzip_cmd] -c ">" $tmpfile - eval $cmd + {*}$cmd # At this point, the APM tarball is sitting in $tmpfile. Save it in # the database. Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v diff -u -r1.94.2.17 -r1.94.2.18 --- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl 7 Aug 2014 19:24:52 -0000 1.94.2.17 +++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl 25 Aug 2014 09:29:03 -0000 1.94.2.18 @@ -1596,7 +1596,7 @@ # We are ready for invocation ns_log Notice "apm_invoke_callback_proc: invoking callback $type with command $command" - eval $command + {*}$command return 1 } Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v diff -u -r1.63.6.6 -r1.63.6.7 --- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl 1 Mar 2014 14:54:40 -0000 1.63.6.6 +++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl 25 Aug 2014 09:29:03 -0000 1.63.6.7 @@ -726,7 +726,7 @@ # Create the form - eval $create_command + {*}$create_command # Now make it impossible to add params specific to form creation to an extend # block @@ -785,7 +785,7 @@ } lappend command $form_name lappend command [lindex $element_name 1] - eval $command + {*}$command } else { set form_command [list template::element create $form_name $element_name] foreach flag $af_flag_list(${form_name}__$element_name) { @@ -863,7 +863,7 @@ lappend form_command "-[lindex $extra_arg 0]" lappend form_command [uplevel [list subst [lindex $extra_arg 1]]] } - eval $form_command + {*}$form_command } } Index: openacs-4/packages/acs-tcl/tcl/http-auth-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/http-auth-procs.tcl,v diff -u -r1.2.6.1 -r1.2.6.2 --- openacs-4/packages/acs-tcl/tcl/http-auth-procs.tcl 31 Oct 2013 17:38:01 -0000 1.2.6.1 +++ openacs-4/packages/acs-tcl/tcl/http-auth-procs.tcl 25 Aug 2014 09:29:03 -0000 1.2.6.2 @@ -93,7 +93,7 @@ if {$proc eq {}} { set proc http_auth::site_node_authorize } - return [eval [list $proc -user_id $user_id -url [ns_conn url]]] + return [$proc -user_id $user_id -url [ns_conn url]] } ad_proc http_auth::site_node_authorize { Index: openacs-4/packages/acs-tcl/tcl/install-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/install-procs.tcl,v diff -u -r1.29.6.2 -r1.29.6.3 --- openacs-4/packages/acs-tcl/tcl/install-procs.tcl 23 Aug 2014 12:27:03 -0000 1.29.6.2 +++ openacs-4/packages/acs-tcl/tcl/install-procs.tcl 25 Aug 2014 09:29:03 -0000 1.29.6.3 @@ -354,7 +354,7 @@ } } - eval $command + {*}$command return } @@ -979,7 +979,7 @@ } } - set result [eval $cmd] + set result [{*}$cmd] set id [apm_attribute_value -default "" $node id] if {$id ne ""} { set ::install::xml::ids($id) $result Index: openacs-4/packages/acs-tcl/tcl/pdf-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/pdf-procs.tcl,v diff -u -r1.2.12.1 -r1.2.12.2 --- openacs-4/packages/acs-tcl/tcl/pdf-procs.tcl 1 Apr 2014 18:37:31 -0000 1.2.12.1 +++ openacs-4/packages/acs-tcl/tcl/pdf-procs.tcl 25 Aug 2014 09:29:03 -0000 1.2.12.2 @@ -118,7 +118,7 @@ @param set_var_call procedure-name which sets the variables used } { - eval $set_var_call + {*}$set_var_call # retrieve template and write to tmpfile # set content [content::get_content_value $template_id] Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v diff -u -r1.113.2.27 -r1.113.2.28 --- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 6 Aug 2014 09:28:15 -0000 1.113.2.27 +++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl 25 Aug 2014 09:29:03 -0000 1.113.2.28 @@ -179,7 +179,7 @@ 1 (TCL_ERROR). } { - eval return $args + return {*}$args } ad_proc -private rp_registered_proc_info_compare { info1 info2 } { Index: openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl,v diff -u -r1.3.8.1 -r1.3.8.2 --- openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl 12 Oct 2013 13:55:18 -0000 1.3.8.1 +++ openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl 25 Aug 2014 09:29:04 -0000 1.3.8.2 @@ -133,7 +133,7 @@ } } if {[llength $pretag2]} { - eval "lappend old_list $pretag2" + lappend old_list {*}$pretag2 } } if {$fulltag ne ""} { @@ -159,7 +159,7 @@ } } if {[llength $pretag2]} { - eval "lappend new_list $pretag2" + lappend new_list {*}$pretag2 } } if {$fulltag ne ""} { @@ -255,4 +255,4 @@ "" } $output] return "$output" -} \ No newline at end of file +}