diff options
| author | Juan M. Lasca <juanmlasca@gmail.com> | 2022-07-23 01:56:09 +0100 |
|---|---|---|
| committer | Willy Sudiarto Raharjo <willysr@slackbuilds.org> | 2022-07-23 11:13:14 +0700 |
| commit | 857db0d33eb26f00e08cb1a83e7d5a6e9796c426 (patch) | |
| tree | 3ebcecb1aa27e22e7eb027ee6103ae55209128f4 /development/tclvfs/patches/06-zipfix.patch | |
| parent | ff0eba50258830f85259a70cd99e12c098514a4b (diff) | |
development/tclvfs: Updated for version 1.4. New maintainer.
Signed-off-by: Dave Woodfall <dave@slackbuilds.org>
Signed-off-by: Willy Sudiarto Raharjo <willysr@slackbuilds.org>
Diffstat (limited to 'development/tclvfs/patches/06-zipfix.patch')
| -rw-r--r-- | development/tclvfs/patches/06-zipfix.patch | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/development/tclvfs/patches/06-zipfix.patch b/development/tclvfs/patches/06-zipfix.patch deleted file mode 100644 index 8ca6e1c1ae..0000000000 --- a/development/tclvfs/patches/06-zipfix.patch +++ /dev/null @@ -1,41 +0,0 @@ -Patch by Victor Wagner (modified by Sergei Golovan for archives less -than 512 bytes long) fixes zip vfs to work with prepended executable. - ---- tclvfs-1.3-20080503.orig/library/zipvfs.tcl -+++ tclvfs-1.3-20080503/library/zipvfs.tcl -@@ -113,7 +113,8 @@ - set translation [fconfigure $nfd -translation] - fconfigure $nfd -translation binary - -- seek $zipfd $sb(ino) start -+ upvar #0 zip::$zipfd cb -+ seek $zipfd [expr {$sb(ino)+$cb(base)}] start - zip::Data $zipfd sb data - - puts -nonewline $nfd $data -@@ -370,6 +371,7 @@ - - seek $fd $n end - set hdr [read $fd $len] -+ set read [string length $hdr] - set pos [string first "PK\05\06" $hdr] - if {$pos == -1} { - if {$at >= $sz} { -@@ -384,7 +386,7 @@ - } - - set hdr [string range $hdr [expr $pos + 4] [expr $pos + 21]] -- set pos [expr [tell $fd] + $pos - 512] -+ set pos [expr [tell $fd] + $pos - $read] - - binary scan $hdr ssssiis \ - cb(ndisk) cb(cdisk) \ -@@ -445,7 +447,7 @@ - - zip::EndOfArchive $fd cb - -- seek $fd $cb(coff) start -+ seek $fd [expr {$cb(coff)+$cb(base)}] start - - set toc(_) 0; unset toc(_); #MakeArray - |