From e03ade9bc7d133b33f5db2302e1ac60bd3a33b77 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 20 Oct 2019 11:58:07 +0100
Subject: [PATCH] tests: Break out prefix_some_path

This incidentally fixes a bug: previously, we wrote PRELOAD rather
than LD_PRELOAD in one place, which meant that existing LD_PRELOADs
would be overwritten.  Now they no longer are.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 stest/common.tcl | 8 +-------
 test-common.tcl  | 8 ++++++++
 2 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/stest/common.tcl b/stest/common.tcl
index 21ed960..7a4c893 100644
--- a/stest/common.tcl
+++ b/stest/common.tcl
@@ -169,13 +169,7 @@ set socktmp $tmp/s
 exec mkdir -p -m700 $socktmp
 regsub {^(?!/)} $socktmp {./} socktmp ;# dgram-socket wants ./ or /
 
-proc prefix_preload {lib} {
-    global env
-    set l {}
-    catch { set l [split $env(PRELOAD) :] }
-    set l [concat [list $lib] $l]
-    set env(LD_PRELOAD) [join $l :]
-}
+proc prefix_preload {lib} { prefix_some_path LD_PRELOAD $lib }
 
 set env(UDP_PRELOAD_DIR) $socktmp
 prefix_preload $builddir/stest/udp-preload.so
diff --git a/test-common.tcl b/test-common.tcl
index 2e70f08..47b867d 100644
--- a/test-common.tcl
+++ b/test-common.tcl
@@ -1,4 +1,12 @@
 
+proc prefix_some_path {pathvar entry} {
+    global env
+    set l {}
+    catch { set l [split $env($pathvar) :] }
+    set l [concat [list $entry] $l]
+    set env($pathvar) [join $l :]
+}
+
 if {![catch {
     set builddir $env(STEST_BUILDDIR)
 }]} {} else {
-- 
2.30.2