* 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 59316b147535db9d40013fcb46e1cc78dc6d37a0..4fedd6d005d14011f5c4b53457126b3e41211cdd 100644 (file)
--- 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 e07ca2e8e5ca49513097fac33b76c22346183d38..bd460b13fd4ff95f5a2f5b290ef9808adc812e86 100644 (file)
--- 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