Expand \x sequences from lsof to UTF-8

This commit is contained in:
HummyPkg 2017-03-12 17:34:14 +00:00
parent a5fa577099
commit be1b26378e

View File

@ -83,7 +83,7 @@ proc get_data {} {
regsub -- { \([^\)]+\)$} $line "" line
set ext [file extension $line]
if {$ext ni $exts} continue
set file [string range $line 1 end]
set file [subst [string range $line 1 end]]
# Skip HD-Fox TSR buffer
if {$file eq "/media/drive1/.tsr/0.ts"} {
continue