2 proc prefix_some_path {pathvar entry} {
5 catch { set l [split $env($pathvar) :] }
6 set l [concat [list $entry] $l]
7 set env($pathvar) [join $l :]
16 set builddir $env(SECNET_TEST_BUILDDIR)
22 set tmp $env(AUTOPKGTEST_ARTIACTS)
23 }]} {} elseif {![catch {
24 set tmp $env(AUTOPKGTEST_TMP)
25 }]} {} elseif {[regsub {^(?:\./)?([sm]test)/t-} $argv0 {\1/d-} tmp]} {
26 set tmp $builddir/$tmp