diff options
Diffstat (limited to 'lang/tcl/patches/patch-aj')
-rw-r--r-- | lang/tcl/patches/patch-aj | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/lang/tcl/patches/patch-aj b/lang/tcl/patches/patch-aj new file mode 100644 index 00000000000..f250662124a --- /dev/null +++ b/lang/tcl/patches/patch-aj @@ -0,0 +1,31 @@ +$NetBSD: patch-aj,v 1.1 2005/08/02 22:37:18 seb 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] + } + |