sweeper skips files with odd characters

This commit is contained in:
hummypkg 2013-11-06 22:14:37 +00:00
parent 92ae6f1e0d
commit 19a66ddf5a
1 changed files with 2 additions and 1 deletions

View File

@ -323,7 +323,8 @@ proc ::sweeper::apply {dir cf} {
foreach e [readdir -nocomplain $dir] {
set entry "$dir/$e"
if {[file isdirectory $entry]} continue
if {![string match {*.ts} $entry]} continue
#if {![string match {*.ts} $entry]} continue
if {![regexp {^[\x01-\x7f]+\.ts$} $entry]} continue
log "+ Sweeper processing $entry" 2