Artifact
3fd07788a6cfc1745346a7c8b09e428354642e0f:
Attachment "blowfish.patch" to
ticket [1664626fff]
added by
tallniel
2007-02-21 03:05:13.
Index: blowfish.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/blowfish/blowfish.tcl,v
retrieving revision 1.7
diff -u -r1.7 blowfish.tcl
--- blowfish.tcl 2 Oct 2006 20:58:52 -0000 1.7
+++ blowfish.tcl 20 Feb 2007 19:59:10 -0000
@@ -504,7 +504,7 @@
# Fileevent handler for chunked file reading.
#
proc ::blowfish::Chunk {Key in {out {}} {chunksize 4096} {pad \0}} {
- upvar #0 $token state
+ upvar #0 $Key state
if {[eof $in]} {
fileevent $in readable {}
