Tcl Library Source Code

using **::tar::add** - methode will cause a script error, because in this method

~~~tcl
proc ::tar::SetupWriting {file do {mode rb+}} {
    set fh [::open $tar $mode]
    if {[IsGzFile $fh]} {
	close $fh
	Err "cannot $do gzip compressed tar" ZLIB UNSUPPORTED WRITE
    }
    return $fh
}
~~~

the variable **$tar** in **open** command does not exist, needs to be changed to **$file**