#file normalize may change backslashes to forward slashes.. including things like the special \\?\ prefix which is intended to stop windows api from parsing a name
#2023 - this is ok as //?/ also seems to work.. but it is unclear if that is because Tcl is re-converting to backslashes
if {[punk::winpath_illegalname_test] $path} {
if {[punk::winpath_illegalname_test $path]} {
set path [punk::winpath_illegalname_fix $path]
}
@ -4112,6 +4112,7 @@ namespace eval punk {
#also determine whether vfs. file system x is *much* faster than file attributes
set vfs [list] ;#dict keyed on dir/file name
set dirs [glob -nocomplain -directory $location -type d -tail $glob]
set dirs [lsort $dirs] ;#todo - natsort
foreach d $dirs {
if {[lindex [file system $d] 0] eq "tclvfs"} {
lappend vfs $d [file system $d]
@ -4119,6 +4120,7 @@ namespace eval punk {
}
set files [glob -nocomplain -directory $location -type f -tail $glob]