summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2002-03-25 17:10:57 (GMT)
committerdgp <dgp@users.sourceforge.net>2002-03-25 17:10:57 (GMT)
commitf7f08ed212e20480dabd9801880cb3b7b9fb9343 (patch)
treedca87d8bb611670743c152f040a716aa69f79599 /library
parentbcd3c2b029233968c21c526097f241bc4738e9fd (diff)
downloadtcl-f7f08ed212e20480dabd9801880cb3b7b9fb9343.zip
tcl-f7f08ed212e20480dabd9801880cb3b7b9fb9343.tar.gz
tcl-f7f08ed212e20480dabd9801880cb3b7b9fb9343.tar.bz2
* Keep the value of $::auto_path
unchanged, so that the tcltest package can test code that depends on auto-loading. If a testing application needs $::auto_path pruned, it should do that itself. [Bug 495726]
Diffstat (limited to 'library')
-rw-r--r--library/tcltest/tcltest.tcl5
1 files changed, 1 insertions, 4 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index d08e975..1667bea 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -13,7 +13,7 @@
# Copyright (c) 2000 by Ajuba Solutions
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.37 2002/03/24 18:57:53 dgp Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.38 2002/03/25 17:10:57 dgp Exp $
# create the "tcltest" namespace for all testing variables and procedures
@@ -3453,9 +3453,6 @@ proc tcltest::threadReap {} {
# Initialize the constraints and set up command line arguments
namespace eval tcltest {
- # Ensure that we have a minimal auto_path so we don't pick up extra junk.
- set ::auto_path [list [info library]]
-
tcltest::initConstraints
if {[namespace children [namespace current]] == {}} {
tcltest::processCmdLineArgs