stest: Require SECNET_STEST_DIVERT_* paths to start / or ./

[secnet.git] / stest / common.tcl

diff --git a/stest/common.tcl b/stest/common.tcl
index 729d8fea6149a4b54c4650c1002b4702aabe63cc..a8651d696069483dc732997cc36a02de7c496b38 100644 (file)
--- a/stest/common.tcl
+++ b/stest/common.tcl
@@ -198,11 +198,14 @@ proc spawn-secnet {location site} {
            0 - "" {
                puts " $argl"
            }
-           * {
+           /* - ./* {
                puts " $argl"
                set argl [split $env($divertk)]
                puts "... $argl"
            }
+           * {
+               error "$divertk not understood"
+           }
        }
     }
     if {[llength $argl]} {