From: Andreas Kupries <andreas_kupries@users.sourceforge.net>
Date: Wed, 30 Oct 2002 22:27:18 +0000 (+0000)
Subject: 	* library/pkgIndex.tcl: Changed 'tcl_platform' to
X-Git-Tag: vfs-1-2~24
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=5d178d7b6b85cc52fa0cd363f271d13c0ca0bde5;p=tclvfs

	* library/pkgIndex.tcl: Changed 'tcl_platform' to
	  '::tcl_platform'. Package index must not assume execution at
	  global level.
---

diff --git a/ChangeLog b/ChangeLog
index 59316b1..4fedd6d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2002-10-30  Andreas Kupries  <andreask@activestate.com>
+
+	* library/pkgIndex.tcl: Changed 'tcl_platform' to
+	  '::tcl_platform'. Package index must not assume execution at
+	  global level.
+
 2002-10-19  Jean-Claude Wippler <jcw@equi4.com>
 
 	* library/pkgIndex.tcl:
diff --git a/library/pkgIndex.tcl b/library/pkgIndex.tcl
index e07ca2e..bd460b1 100644
--- a/library/pkgIndex.tcl
+++ b/library/pkgIndex.tcl
@@ -17,9 +17,9 @@ package require Tcl 8.4
 namespace eval ::vfs {}
 variable vfs::dll
 
-if {$tcl_platform(platform) eq "unix"} {
+if {$::tcl_platform(platform) eq "unix"} {
     set dll libvfs1.0
-} elseif {[info exists tcl_platform(debug)]} {
+} elseif {[info exists ::tcl_platform(debug)]} {
     set dll vfs10d
 } else {
     set dll vfs10