stest: When SECNET_STEST_DIVERT_* set, print diverted command too

[secnet.git] / stest / common.tcl

diff --git a/stest/common.tcl b/stest/common.tcl
index a85239ca1a643b2834120ffe3ac33e3aca87010d..729d8fea6149a4b54c4650c1002b4702aabe63cc 100644 (file)
--- a/stest/common.tcl
+++ b/stest/common.tcl
@@ -201,6 +201,7 @@ proc spawn-secnet {location site} {
            * {
                puts " $argl"
                set argl [split $env($divertk)]
+               puts "... $argl"
            }
        }
     }