36aff7b87b
* Repeated [namespace import] of same command now permitted.
* ${prefix}/share added to ::tcl_pkgPath on some systems.
* [exec]'s >> redirection has improved append behavior.
* [info globals] returned only existing variables.
* Recognize some Solaris variations of the cp1251 encoding.
* Addressed [file mkdir] race condition.
* Support opening >2GB files on RHEL 3.
* Corrections to $argv formatting when [encoding system] is multibyte.
* http 2.5.2: Update URL encoding rules to RFC 3986.
* Fixed issue in recursive file delete with NFS lock files.
* Stopped crash after use of Tcl_TraceCommand().
* Win NT/XP: support unicode console.
* Improved support for Tclkit to set [encoding system].
* Added Korean timezone abbreviations.
* Windows: exit codes can now exceed -128..127 range.
* [load] support on LynxOS.
* Packages with incorrect index scripts now cause a warning to be logged.
*** POTENTIAL INCOMPATIBILITY ***
* [lsearch -regexp] now accepts backrefs in the RE.
* [selection get] made compatible with OpenOffice.org.
* Dialog support for widget names containing spaces.
* Improved Tk window manager event interaction on OS X Aqua.
31 lines
1.1 KiB
Text
31 lines
1.1 KiB
Text
$NetBSD: patch-aj,v 1.2 2006/01/16 14:47:35 adam Exp $
|
|
|
|
--- tests/pkgMkIndex.test.orig 2003-07-24 08:23:39.000000000 +0000
|
|
+++ tests/pkgMkIndex.test
|
|
@@ -559,7 +559,7 @@ removeFile [file join pkg circ2.tcl]
|
|
removeFile [file join pkg circ3.tcl]
|
|
|
|
# Some tests require the existence of one of the DLLs in the dltest directory
|
|
-set x [file join [file dirname [info nameofexecutable]] dltest \
|
|
+set x [file join [file dirname [info nameofexecutable]] .. dltest .libs \
|
|
pkga[info sharedlibextension]]
|
|
set dll "[file tail $x]Required"
|
|
::tcltest::testConstraint $dll [file exists $x]
|
|
@@ -572,7 +572,7 @@ proc pkga_neq { x } {
|
|
return [expr {! [pkgq_eq $x]}]
|
|
}
|
|
} [file join pkg pkga.tcl]
|
|
-file copy -force $x $fullPkgPath
|
|
+eval file copy -force [glob "$x*"] $fullPkgPath
|
|
}
|
|
testConstraint exec [llength [info commands ::exec]]
|
|
|
|
@@ -598,7 +598,7 @@ test pkgMkIndex-10.2 {package in DLL hid
|
|
} {0 {}}
|
|
|
|
if {[testConstraint $dll]} {
|
|
-file delete -force [file join $fullPkgPath [file tail $x]]
|
|
+eval file delete -force [glob [file join $fullPkgPath [file tail "$x*"] ] ]
|
|
removeFile [file join pkg pkga.tcl]
|
|
}
|
|
|