Index: openacs-4/packages/acs-tcl/acs-tcl.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/acs-tcl.info,v
diff -u -r1.67.2.7 -r1.67.2.8
--- openacs-4/packages/acs-tcl/acs-tcl.info 2 Oct 2013 22:55:54 -0000 1.67.2.7
+++ openacs-4/packages/acs-tcl/acs-tcl.info 2 Nov 2013 18:26:13 -0000 1.67.2.8
@@ -7,7 +7,7 @@
t
t
-
+
OpenACS
The Kernel Tcl API library.
2013-09-08
@@ -18,7 +18,7 @@
GPL version 2
3
-
+
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-tcl/tcl/apm-init.tcl'.
Fisheye: No comparison available. Pass `N' to diff?
Index: openacs-4/packages/acs-tcl/tcl/proxy-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/proxy-procs.tcl,v
diff -u -r1.4 -r1.4.6.1
--- openacs-4/packages/acs-tcl/tcl/proxy-procs.tcl 17 Mar 2010 22:03:55 -0000 1.4
+++ openacs-4/packages/acs-tcl/tcl/proxy-procs.tcl 2 Nov 2013 18:26:13 -0000 1.4.6.1
@@ -31,7 +31,8 @@
return $return_string
}
- # Now rename exec
- rename exec real_exec
+ # Now rename exec; protect cases, where file is loaded multiple times
+ if {[info commands ::real_exec] eq ""} {rename exec real_exec}
+
ad_proc exec {args} {This is the wrapped version of exec} {proxy::exec -call $args}
}