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>
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
+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 {