diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-08-27 02:14:08 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-08-27 02:14:08 (GMT) |
| commit | 9c25bc6dc6c615313b4574356e71d451185a634e (patch) | |
| tree | f31e368814b12a6533c90e289fe7be521f22108f /win/tclWinInit.c | |
| parent | 1f0268c256e80edaaaac53ece4b31fac44354220 (diff) | |
| download | tcl-9c25bc6dc6c615313b4574356e71d451185a634e.zip tcl-9c25bc6dc6c615313b4574356e71d451185a634e.tar.gz tcl-9c25bc6dc6c615313b4574356e71d451185a634e.tar.bz2 | |
* Corrected
inconsistency between the search path for script libraries and
the directory name $DISTNAME into which distributions built
by 'make test' unpack. [Bug 455642]
Diffstat (limited to 'win/tclWinInit.c')
| -rw-r--r-- | win/tclWinInit.c | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index a1eb02a..f90738c 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclWinInit.c,v 1.27 2001/07/31 19:12:08 vincentdarley Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.28 2001/08/27 02:14:08 dgp Exp $ */ #include "tclWinInt.h" @@ -184,8 +184,7 @@ TclpInitLibraryPath(path) */ sprintf(installLib, "lib/tcl%s", TCL_VERSION); - sprintf(developLib, "../tcl%s/library", - ((TCL_RELEASE_LEVEL < 2) ? TCL_PATCH_LEVEL : TCL_VERSION)); + sprintf(developLib, "../tcl%s/library", TCL_PATCH_LEVEL); /* * Look for the library relative to default encoding dir. @@ -221,17 +220,17 @@ TclpInitLibraryPath(path) * This code looks in the following directories: * * <bindir>/../<installLib> - * (e.g. /usr/local/bin/../lib/tcl8.2) + * (e.g. /usr/local/bin/../lib/tcl8.4) * <bindir>/../../<installLib> - * (e.g. /usr/local/TclPro/solaris-sparc/bin/../../lib/tcl8.2) + * (e.g. /usr/local/TclPro/solaris-sparc/bin/../../lib/tcl8.4) * <bindir>/../library - * (e.g. /usr/src/tcl8.2/unix/../library) + * (e.g. /usr/src/tcl8.4.0/unix/../library) * <bindir>/../../library - * (e.g. /usr/src/tcl8.2/unix/solaris-sparc/../../library) + * (e.g. /usr/src/tcl8.4.0/unix/solaris-sparc/../../library) * <bindir>/../../<developLib> - * (e.g. /usr/src/tcl8.2/unix/../../tcl8.2/library) - * <bindir>/../../../<devlopLib> - * (e.g. /usr/src/tcl8.2/unix/solaris-sparc/../../../tcl8.2/library) + * (e.g. /usr/src/tcl8.4.0/unix/../../tcl8.4.0/library) + * <bindir>/../../../<developLib> + * (e.g. /usr/src/tcl8.4.0/unix/solaris-sparc/../../../tcl8.4.0/library) */ /* |