Artifact
3be32cbb9a20ddb55ed4d7f7fb132cf600e9691f:
Attachment "tar-0.2.tcl.patch" to
ticket [1603273fff]
added by
exgerhardr
2006-11-27 00:22:20.
*** tar.tcl 2006-11-26 17:58:26.000000000 +0100
--- tar.tcl.orig 2006-11-26 17:33:26.000000000 +0100
*************** proc ::tar::untar {tar args} {
*** 116,117 ****
! set smap {* \\* ? \\? \\ \\\\ \[ \\\[ \] \\\]}
! set pattern [string trim [string map $smap $file] "{}"]
--- 116 ----
! set pattern [string map {* \\* ? \\? \\ \\\\ \[ \\\[ \] \\\]} $file]
