From b88c4bab9eff1c2e12fb588e0838bc4bc8c7cd56 Mon Sep 17 00:00:00 2001 From: Stefan Schippers Date: Thu, 15 Oct 2020 18:42:08 +0200 Subject: [PATCH] -m better relative path recognition in abs_sym_path --- src/xschem.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/xschem.tcl b/src/xschem.tcl index 6608de04..85e33213 100644 --- a/src/xschem.tcl +++ b/src/xschem.tcl @@ -2659,7 +2659,7 @@ proc abs_sym_path {fname {ext {} } } { } if { $::OS ne {Windows}} { # transform a/b/../c to a/c or a/b/c/.. to a/b - while {[regsub {[^/.]+/\.\./?} $fname {} fname] } {} + while {[regsub {([^/]*\.*[^./]+[^/]*)/\.\./?} $fname {} fname] } {} } # remove trailing '/'s to non empty path regsub {([^/]+)/+$} $fname {\1} fname