Исправлено рег. выпражение определения mime типа файла

2022-11-14 09:27:15 +03:00
parent 276cc63097
commit 19156c252b
1 changed files with 1 additions and 1 deletions
--- a/lib/files.tcl
+++ b/lib/files.tcl
@@ -33,7 +33,7 @@ namespace eval FileOper {
        lappend cmd $fileFullPath
        catch $cmd pipe 
        # puts $pipe
-        if [regexp -nocase -- {(\w+)/([[:alnum:]-]+); charset=([[:alnum:]-]+)} $pipe m fType fExt fCharset] {
+        if [regexp -nocase -- {(\w+)/([\w\-_\.]+); charset=([[:alnum:]-]+)} $pipe m fType fExt fCharset] {
            puts "$fType $fExt $fCharset"
        }
        switch $opt {