X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=stest%2Fcommon.tcl;fp=stest%2Fcommon.tcl;h=8897bd90da340a99b4529b65e736691673c7cbb9;hb=5f9e3ffe07bd4412e35e90637694a3e5bc2eac7a;hp=7ebe9d2babab83b8b00954d46a5a508c896aa019;hpb=6d46679bc8fc6c0cef761a36304ba86acb82b0db;p=secnet.git diff --git a/stest/common.tcl b/stest/common.tcl index 7ebe9d2..8897bd9 100644 --- a/stest/common.tcl +++ b/stest/common.tcl @@ -177,7 +177,7 @@ proc spawn-secnet {location site} { } set argl [list $secnet -dvnc $cf] set divertk SECNET_STEST_DIVERT_$site - puts -nonewline "spawn" + puts "spawn:" foreach k [array names env] { switch -glob $k { SECNET_STEST_DIVERT_* -