From: <no...@tc...> - 2025-09-07 14:18:47
|
Automated mail by fx, on behalf of no...@tc... Ticket Change [192091b0736f5bfc76f1014d4b08dd312033889d2cadb9de442ce55da408af2a] [Detection of tar files broken] By anonymous For Tcllib On 2025-09-07T14:10:19.556 Details https://core.tcl-lang.org/tcllib/tinfo?name=192091b0736f5bfc76f1014d4b08dd312033889d2cadb9de442ce55da408af2a Ticket https://core.tcl-lang.org/tcllib/tktview/941c0d2b6009dd0cfd9c0bb74d2b4658ac540099 Changed Fields assignee: nobody closer: nobody comment: According to sources found on the internet, the magic key of tar files should be "ustar" followed by \\\\x00. Using ex. tar-1.34 from Debian 12 or 7z-25.01 on Windows, these programs write a space \\\\x20 instead of \\\\x00. So instead of using the following line to match tar files ```` } elseif { $binary && [string range $test 257 262] == "ustar\\x00" } lappend type compressed tar } ``` one should use for example a statement like this: ``` } elseif { $isBinary && [string range $test 257 261] eq "ustar" } { set shouldBeNull [string index $test 262] if { $shouldBeNull eq "\\x00" || $shouldBeNull eq "\\x20" } { lappend type compressed tar } } ``` foundin: 2.0 is_private: 0 login: anonymous priority: 5 Medium resolution: None severity: Minor status: Open submitter: anonymous subsystem: fileutil title: Detection of tar files broken type: Bug ------------------------------------------------------------ See Tcl/Tk development @ http://core.tcl-lang.org/ ------------------------------------------------------------ |