Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Proposed fix for tar::untar bug [b01462dff7] |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | bug-b01462dff7 |
| Files: | files | file ages | folders |
| SHA3-256: |
cef77068e44d98179a246da7a362bda4 |
| User & Date: | apnadkarni 2025-01-10 13:55:45.252 |
Context
|
2025-01-13
| ||
| 20:20 | Bump package version. check-in: 6f3a4044b6 user: aku tags: bug-b01462dff7 | |
|
2025-01-10
| ||
| 13:55 | Proposed fix for tar::untar bug [b01462dff7] check-in: cef77068e4 user: apnadkarni tags: bug-b01462dff7 | |
|
2025-01-04
| ||
| 18:37 | Correct mistakes in the man page for the filter package. check-in: ce253d70e3 user: arjenmarkus tags: trunk, main | |
Changes
Changes to modules/tar/tar.tcl.
| ︙ | ︙ | |||
134 135 136 137 138 139 140 |
name mode uid gid size mtime cksum type \
linkname magic version uname gname devmajor devminor prefix
foreach x {name type linkname} {
set $x [string trim [set $x] "\x00"]
}
foreach x {uid gid size mtime cksum} {
| | | | | 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 |
name mode uid gid size mtime cksum type \
linkname magic version uname gname devmajor devminor prefix
foreach x {name type linkname} {
set $x [string trim [set $x] "\x00"]
}
foreach x {uid gid size mtime cksum} {
set $x [format %d 0o0[string trim [set $x] " \x00"]]
}
set mode [string trim $mode " \x00"]
if {$magic eq "ustar "} {
# gnu tar
# not fully supported
foreach x {uname gname prefix} {
set $x [string trim [set $x] "\x00"]
}
foreach x {devmajor devminor} {
set $x [format %d 0o0[string trim [set $x] " \x00"]]
}
} elseif {$magic eq "ustar\x00"} {
# posix tar
foreach x {uname gname prefix} {
set $x [string trim [set $x] "\x00"]
}
foreach x {devmajor devminor} {
set $x [format %d 0o0[string trim [set $x] " \x00"]]
}
} else {
# old style tar
foreach x {uname gname devmajor devminor prefix} { set $x {} }
if {$type eq ""} {
if {[string match */ $name]} {
set type 5
|
| ︙ | ︙ |