#1173 md5::md5 -file option error on close

[Colin McCormack]

calling md5:
set result "WUB[::md5::md5 -hex -file [dict get $req -file]]"

bgerror: {can not find channel named "file51"} {-code 1 -level 0 -errorcode {TCL LOOKUP CHANNEL file51} -errorinfo can\ not\ find\ channel\ named\ \"file51\"\n\ \ \ \ while\ executing\n\"close\ \$opts(-channel)\"\n\ \ \ \ (procedure\ \"::md5::md5\"\ line\ 44)\n\ \ \ \ invoked\ from\ within\n\"::md5::md5\ -hex\ -file\ \[dict\ get\ \$req\ -file\]\"\n\ \ \ \ (procedure\ \"etag\"\ line\ 4)...

pardon my backslashes.

[Colin McCormack]

Forgot to mention version: debian 1.11.1-dfsg-2

[Andreas Kupries]

[14:33] colin aku, reported md5 bug 2906306
[14:33] colin it's strange because it's happening on *close* not open.
[14:34] aku First, what is underneath the md5 ? Plain Tcl, or one of the accelerators ? (Trf, tcllibc)
[14:34] colin How do I find out?
[14:34] aku info loaded tells which shared libs are loaded, that is one indicator
[14:35] aku There is also some array in md5 which tells exactly
[14:35] colin |{/usr/lib/tcl8.6/Mk4tcl/Mk4tcl.so Mk4tcl} {/usr/lib/tdbc1.0b13/libtdbc1.0b13.so Tdbc} {/usr/lib/sqlite3.6.19/libsqlite3.6.19.so Sqlite3}
[14:35] colin so it would appear to be the plain tcl version
[14:35] colin shame, I want the accelerated one
[14:35] aku Ok, no accels loaded, should be the plain Tcl => IIRC this uses a channel internall to process a file => Pat Thoyts has written this code.
[14:36] colin leave that for another day.
[14:36] colin ok. patthoyts, seems to be a strange bug in md5. It would appear that the file has been closed already.
[14:36] aku I will paste this part of the chat into the bug and then reassign
[14:36] colin when it comes to be closed under ::md5::md5 -file
[14:36] colin ok.