diff options
| author | welch <welch> | 1998-08-07 11:02:16 (GMT) |
|---|---|---|
| committer | welch <welch> | 1998-08-07 11:02:16 (GMT) |
| commit | 75994376b6cf93b85003527389dbf97b1cde3067 (patch) | |
| tree | 46aae7dd92e39d66f396cf905d442377c091154f /library/init.tcl | |
| parent | f8d54fd42ea91003756a763b1cb0d06f35e425f3 (diff) | |
| download | tcl-75994376b6cf93b85003527389dbf97b1cde3067.zip tcl-75994376b6cf93b85003527389dbf97b1cde3067.tar.gz tcl-75994376b6cf93b85003527389dbf97b1cde3067.tar.bz2 | |
Nuked / from file paths
Diffstat (limited to 'library/init.tcl')
| -rw-r--r-- | library/init.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/init.tcl b/library/init.tcl index fa8a83c..2597b84 100644 --- a/library/init.tcl +++ b/library/init.tcl @@ -626,8 +626,8 @@ proc tcl_findLibrary {basename version patch initScript enVarName varName} { } else { set ver $version } - lappend dirs [file join $grandParentDir] $basename$ver/library] - lappend dirs [file join [file dirname $grandParentDir] $basename$ver/library] + lappend dirs [file join $grandParentDir] $basename$ver library] + lappend dirs [file join [file dirname $grandParentDir] $basename$ver library] } foreach i $dirs { set the_library $i |