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 :]
11 set builddir $env(SECNET_TEST_BUILDDIR)
17 set tmp $env(AUTOPKGTEST_ARTIACTS)
18 }]} {} elseif {![catch {
19 set tmp $env(AUTOPKGTEST_TMP)
20 }]} {} elseif {[regsub {^(?:\./)?([sm]test)/t-} $argv0 {\1/d-} tmp]} {
21 set tmp $builddir/$tmp