From 690dffab9173ec59359b5988728f15458cf7fb71 Mon Sep 17 00:00:00 2001 From: Aleteoryx Date: Mon, 3 Nov 2025 18:42:12 -0500 Subject: [PATCH] hopefully fix glob portability --- ntalk.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ntalk.tcl b/ntalk.tcl index d7c66a085640b56d84d9da17639ae5266c38c8ea..135b0c6352b084891e6dd5846bb018b6561a5fed 100755 --- a/ntalk.tcl +++ b/ntalk.tcl @@ -566,7 +566,7 @@ proc _locatecscript {} { } # try picking a default - set servlist [lsort [glob -directory $scriptdir "*.tcl"]] + set servlist [lsort [glob -nocomplain -directory $scriptdir "**.tcl"]] if {[llength $servlist] > 0} { return [lindex $servlist 0] } @@ -586,7 +586,7 @@ proc regenservlist {} { .menu.server.rm delete 0 end } - foreach filename [lsort -decreasing [glob -directory $scriptdir *.tcl]] { + foreach filename [lsort -decreasing [glob -nocomplain -directory $scriptdir **.tcl]] { set slug [file tail [file rootname $filename]] if {$filename == $scriptpath} {