X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=mtest%2Fcommon.tcl;fp=mtest%2Fcommon.tcl;h=434f722ea0e31eeacf7dc67d2f5d57deb03dbfca;hb=129ea6739cacbfa30c355fe870d2122421bb70ce;hp=3db8d5caac9741ccbc02a7efb24cdde82d1fb199;hpb=e8a5679784c19508f1f93f3e51f315cf3977b187;p=secnet.git

diff --git a/mtest/common.tcl b/mtest/common.tcl
index 3db8d5c..434f722 100644
--- a/mtest/common.tcl
+++ b/mtest/common.tcl
@@ -1,7 +1,12 @@
 source test-common.tcl
 
 proc mss-program {} {
+    global env
     set l ./make-secnet-sites
+    if {![catch { set py $env(MTEST_PYTHON) }]} {
+	set l [concat $py $l]
+    }
+    return $l
 }
 
 proc run-mss-userv {user group args} {