From 1d6b0ba15b1906d2cf243953a61a5020f65c5bf7 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 14 Nov 2019 01:17:17 +0000
Subject: [PATCH] test-common: Cope if argv0 starts with ./

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 test-common.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test-common.tcl b/test-common.tcl
index 45bddce..162ad3a 100644
--- a/test-common.tcl
+++ b/test-common.tcl
@@ -17,7 +17,7 @@ if {![catch {
     set tmp $env(AUTOPKGTEST_ARTIACTS)
 }]} {} elseif {![catch {
     set tmp $env(AUTOPKGTEST_TMP)
-}]} {} elseif {[regsub {^([sm]test)/t-} $argv0 {\1/d-} tmp]} {
+}]} {} elseif {[regsub {^(?:\./)?([sm]test)/t-} $argv0 {\1/d-} tmp]} {
     set tmp $builddir/$tmp
     file mkdir $tmp
 }
-- 
2.30.2