svn commit: r316829 - in head/lang: tcl85/files tcl86/files

[Pietro Cerutti]

Author: gahr
Date: Mon Apr 29 16:01:47 2013
New Revision: 316829
URL: http://svnweb.freebsd.org/changeset/ports/316829

Log:
  - Allow safe interps to use tm.tcl to locate packages. This only affects
    SafeBase interps, as "raw" safe interps cannot read the filesystem.

Modified:
  head/lang/tcl85/files/patch-unix-Makefile.in
  head/lang/tcl86/files/patch-unix-Makefile.in

Modified: head/lang/tcl85/files/patch-unix-Makefile.in
==============================================================================
--- head/lang/tcl85/files/patch-unix-Makefile.in	Mon Apr 29 15:50:38 2013	(r316828)
+++ head/lang/tcl85/files/patch-unix-Makefile.in	Mon Apr 29 16:01:47 2013	(r316829)
@@ -135,7 +135,7 @@
 -	        "$(SCRIPT_INSTALL_DIR)"/tm.tcl; \
 -	fi
 +	@echo "Customizing tcl module path";
-+	@echo "if {![interp issafe]} { ::tcl::tm::path add {$(SCRIPT_INSTALL_DIR)} }" >> \
++	@echo "::tcl::tm::path add {$(SCRIPT_INSTALL_DIR)}" >> \
 +	    "$(SCRIPT_INSTALL_DIR)"/tm.tcl;
 +
 +install-tm:

Modified: head/lang/tcl86/files/patch-unix-Makefile.in
==============================================================================
--- head/lang/tcl86/files/patch-unix-Makefile.in	Mon Apr 29 15:50:38 2013	(r316828)
+++ head/lang/tcl86/files/patch-unix-Makefile.in	Mon Apr 29 16:01:47 2013	(r316829)
@@ -154,7 +154,7 @@
 -	@$(INSTALL_DATA) $(TOP_DIR)/library/platform/shell.tcl "$(SCRIPT_INSTALL_DIR)"/../tcl8/8.4/platform/shell-1.1.4.tm;
 +	@$(INSTALL_DATA) $(TOP_DIR)/library/platform/shell.tcl "$(SCRIPT_INSTALL_DIR)"/platform/shell-1.1.4.tm;
 +	@echo "Customizing tcl module path"; \
-+	echo "if {![interp issafe]} { ::tcl::tm::path add {$(SCRIPT_INSTALL_DIR)} }" >> \
++	echo "::tcl::tm::path add {$(SCRIPT_INSTALL_DIR)}" >> \
 +	    "$(SCRIPT_INSTALL_DIR)"/tm.tcl; \
  
 -	@echo "Installing encoding files to $(SCRIPT_INSTALL_DIR)/encoding/";