Tcl Library Source Code

Hello,

I am using Magicsplat distribution for quite some time.

One of the options my little app offers is to untar bugreport.tar.gz files generated by Android OS.

It seems I had no issues with Magicsplat based on Tcl/Tk 8.6, but when I switched to the latest version based on 9.1, the untar stopped working.

I think the older versions used Tcllib 1.2, while the latest one is based on 2.0.

I mentioned this issue to Ashok and he suggest to open a ticket here.

The error I see is he following:

expected integer but got a list
    while executing
"format %d 0[string trim [set $x] " \x00"]"
    (procedure "readHeader" line 8)
    invoked from within
"readHeader [read $fh 512]"
    (procedure "::tar::untar" line 22)
    invoked from within
"::tar::untar untar-test.tar"
    (file "untar-test.tcl" line 3) 

I was able to reproduce the issue with the following steps:

1. Downloaded and unpacked the tcllib 2.0 sources
2. Tar-ed the resulting folder (used Peazip) into a untar-test.tar
3. Tried to untar with a tcl script:

package require tar

::tar::untar untar-test.tar

Looks like the untar can unpack one file and then fails.

Please let me know if you have any questions.

Thanks,
Michael