From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Wed, 24 Dec 2008 00:31:12 +0000 (+0000)
Subject: Oops. copy-paste typo in variable name
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=c890471acc34f47d6ed5edd1dcce75cc02e5c54e;p=tclvfs

Oops. copy-paste typo in variable name
---

diff --git a/library/vfslib.tcl b/library/vfslib.tcl
index 64f2939..a29a78d 100644
--- a/library/vfslib.tcl
+++ b/library/vfslib.tcl
@@ -153,7 +153,7 @@ if {[info command rechan] != "" || ![catch {load "" rechan}]} {
         proc vfs::zstream {mode ifd clen ilen} {
             set cname _zstream_[incr ::vfs::zseq]
             zlib s$mode $cname
-            fconfigure $fd -translation binary
+            fconfigure $ifd -translation binary
             set cmd [list ::vfs::zstream_handler $cname $ifd $clen $ilen s$mode]
             set fd [rechan $cmd 2]
             set ::vfs::_zstream_pos($fd) 0