2012-03-09 09:15:32 -05:00
|
|
|
$OpenBSD: patch-support_devel_all_tcl,v 1.4 2012/03/09 14:15:32 stu Exp $
|
|
|
|
--- support/devel/all.tcl.orig Tue Dec 13 13:13:22 2011
|
|
|
|
+++ support/devel/all.tcl Mon Feb 20 18:07:35 2012
|
|
|
|
@@ -98,6 +98,7 @@ if {[catch {::tcltest::normalizePath ::tcltest::testsD
|
2008-05-09 15:45:18 -04:00
|
|
|
set root $::tcltest::testsDirectory
|
|
|
|
|
|
|
|
proc Note {k v} {
|
|
|
|
+return
|
|
|
|
puts stdout [list @@ $k $v]
|
|
|
|
flush stdout
|
|
|
|
return
|
2012-03-09 09:15:32 -05:00
|
|
|
@@ -196,7 +197,7 @@ foreach module $modules {
|
2008-05-09 15:45:18 -04:00
|
|
|
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
|
|
|
|
}
|
|
|
|
}
|