21 lines
693 B
Plaintext
21 lines
693 B
Plaintext
$OpenBSD: patch-support_devel_all_tcl,v 1.2 2009/03/19 16:54:33 sthen Exp $
|
|
--- support/devel/all.tcl.orig Fri Dec 12 23:10:20 2008
|
|
+++ support/devel/all.tcl Tue Jan 6 02:28:48 2009
|
|
@@ -98,6 +98,7 @@ if {[catch {::tcltest::normalizePath ::tcltest::testsD
|
|
set root $::tcltest::testsDirectory
|
|
|
|
proc Note {k v} {
|
|
+return
|
|
puts stdout [list @@ $k $v]
|
|
flush stdout
|
|
return
|
|
@@ -196,7 +197,7 @@ foreach module $modules {
|
|
set ::tcltest::testsDirectory [pSet ::tcltest::testsDirectory]
|
|
|
|
# configure not present in tcltest 1.x
|
|
- if {[catch {::tcltest::configure -verbose bstep}]} {
|
|
+ if {[catch {::tcltest::configure -verbose {be}}]} {
|
|
set ::tcltest::verbose psb
|
|
}
|
|
}
|