stest: Don't prefix ./ with another ./, in socktmp

[secnet.git] / stest / common.tcl

diff --git a/stest/common.tcl b/stest/common.tcl
index 3236f9053d28eedd81af2c1b1655b9b4d879f927..e368f117647b3de901adf24d3f708e9e97c8bbab 100644 (file)
--- a/stest/common.tcl
+++ b/stest/common.tcl
@@ -180,7 +180,7 @@ proc sendpkt {} {
 
 set socktmp $tmp/s
 exec mkdir -p -m700 $socktmp
-regsub {^(?!/)} $socktmp {./} socktmp ;# dgram-socket wants ./ or /
+regsub {^(?!/|\./)} $socktmp {./} socktmp ;# dgram-socket wants ./ or /
 
 proc prefix_preload {lib} { prefix_some_path LD_PRELOAD $lib }