From 129ea6739cacbfa30c355fe870d2122421bb70ce Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 20 Oct 2019 12:20:25 +0100
Subject: [PATCH 1/1] mtest: Honour MTEST_PYTHON

To allow running with different python versions.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 mtest/common.tcl | 5 +++++
 1 file changed, 5 insertions(+)

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} {
-- 
2.30.2