[26610] trunk/base/src/macports1.0/macports.tcl

[source_changes at macosforge.org]

Revision: 26610
          http://trac.macosforge.org/projects/macports/changeset/26610
Author:   landonf at macports.org
Date:     2007-06-29 23:42:13 -0700 (Fri, 29 Jun 2007)

Log Message:
-----------
The portfile subinterpreter should not have access to exit

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2007-06-30 06:19:01 UTC (rev 26609)
+++ trunk/base/src/macports1.0/macports.tcl	2007-06-30 06:42:13 UTC (rev 26610)
@@ -621,6 +621,10 @@
 proc macports::worker_init {workername portpath portbuildpath options variations} {
     global macports::portinterp_options macports::portinterp_deferred_options registry.installtype
 
+    # Hide any Tcl commands that should be inaccessible to port1.0 and Portfiles
+    # exit: It should not be possible to exit the interpreter
+    interp hide $workername exit
+
 	# Tell the sub interpreter about all the Tcl packages we already
 	# know about so it won't glob for packages.
 	foreach pkgName [package names] {

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070629/946d0a2e/attachment.html