diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-06-18 05:59:22 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-06-18 05:59:22 (GMT) |
| commit | e9c0ec1219e3c42df67c414bfda0bb5aab9a5bbb (patch) | |
| tree | 0235302100c65242e670dde18610bdea2697cd10 /tests/pkgIndex.tcl | |
| parent | 8047a470ef35faeafe18de166f773a78097b3fc2 (diff) | |
| download | tcl-e9c0ec1219e3c42df67c414bfda0bb5aab9a5bbb.zip tcl-e9c0ec1219e3c42df67c414bfda0bb5aab9a5bbb.tar.gz tcl-e9c0ec1219e3c42df67c414bfda0bb5aab9a5bbb.tar.bz2 | |
Plug leak in TclSetEnv.
Diffstat (limited to 'tests/pkgIndex.tcl')
| -rw-r--r-- | tests/pkgIndex.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/pkgIndex.tcl b/tests/pkgIndex.tcl index 48ab71b..0feb0eb 100644 --- a/tests/pkgIndex.tcl +++ b/tests/pkgIndex.tcl @@ -1,6 +1,6 @@ #! /usr/bin/env tclsh -package ifneeded tcltests 0.1 { - source [file dirname [file dirname [file normalize [info script]/...]]]/tcltests.tcl - package provide tcltests 0.1 -} +package ifneeded tcltests 0.1 " + source [list $dir]/tcltests.tcl + package provide tcltests 0.1 +" |