1 # This file is part of secnet.
2 # See LICENCE and this file CREDITS for full list of copyright holders.
3 # SPDX-License-Identifier: GPL-3.0-or-later
4 # There is NO WARRANTY.
6 proc prefix_some_path {pathvar entry} {
9 catch { set l [split $env($pathvar) :] }
10 set l [concat [list $entry] $l]
11 set env($pathvar) [join $l :]
20 set builddir $env(SECNET_TEST_BUILDDIR)
26 set tmp $env(AUTOPKGTEST_ARTIACTS)
27 }]} {} elseif {![catch {
28 set tmp $env(AUTOPKGTEST_TMP)
29 }]} {} elseif {[regsub {^(?:\./)?([sm]test)/t-} $argv0 {\1/d-} tmp]} {
30 set tmp $builddir/$tmp