diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-05 20:05:57 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-05-05 20:05:57 (GMT) |
| commit | a72da606b6721695abe9ef29017314eacec9b61e (patch) | |
| tree | d73b57d3c63e218f748ca6664701335d5907f307 /library | |
| parent | 8cca485b6d29ec6c075c429a8113fc5b8fa6e67b (diff) | |
| parent | 28169505ef44f2f4341477223e2dd9a23a0e6b41 (diff) | |
| download | tcl-a72da606b6721695abe9ef29017314eacec9b61e.zip tcl-a72da606b6721695abe9ef29017314eacec9b61e.tar.gz tcl-a72da606b6721695abe9ef29017314eacec9b61e.tar.bz2 | |
Fix [3c26dec71e]: TCLX_y_TM_PATH - unspecified behaviour - change with 90b1rc
Diffstat (limited to 'library')
| -rw-r--r-- | library/tm.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/tm.tcl b/library/tm.tcl index 02007d5..ca68ce1 100644 --- a/library/tm.tcl +++ b/library/tm.tcl @@ -97,8 +97,8 @@ proc ::tcl::tm::add {args} { set newpaths $paths foreach p $args { - if {$p in $newpaths} { - # Ignore a path already on the list. + if {($p eq "") || ($p in $newpaths)} { + # Ignore any path which is empty or already on the list. continue } |