Database left unlocked by Tcl bindings

[Eric Lindblad]

cf: http://permalink.gmane.org/gmane.comp.search.xapian.general/9970

http://mirrors.slackware.com/slackware/slackware-iso/slackware-14.0-iso/
slackware-14.0-install-dvd.iso

http://mirrors.slackware.com/slackware/slackware-14.0/source/tcl/tcl/tcl.SlackBuild
FLAGS and configure arguments

http://mirrors.slackware.com/slackware/slackware-current/source/l/xapian-core/xapian-core.SlackBuild
FLAGS and configure arguments

http://xapian.org/download
xapian-bindings-1.2.22.tar.xz

Terminal session 1:

bash-4.2# tclsh
% info patchlevel
8.5.11
% package require Thread
can't find package Thread
% package require xapian 1.0.0
1.2.22
% xapian::WritableDatabase db "tmp.db" $xapian::DB_CREATE_OR_OPEN
_88a70f09_p_Xapian__WritableDatabase
% 

Terminal session 2:

(with the same working directory)

bash-4.2# tclsh
% info patchlevel
8.5.11
% package require Thread
can't find package Thread
% package require xapian 1.0.0
1.2.22
% xapian::WritableDatabase db2 "tmp.db" $xapian::DB_CREATE_OR_OPEN
Unable to get write lock on tmp.db: already locked
% 

Terminal session 3:

(with the same working directory)

bash-4.2# lsof -r 5 tmp.db/flintlock
COMMAND  PID USER   FD   TYPE DEVICE SIZE/OFF    NODE NAME
cat     5630 root    5ww  REG    8,3        0 3858547 tmp.db/flintlock
=======
COMMAND  PID USER   FD   TYPE DEVICE SIZE/OFF    NODE NAME
cat     5630 root    5ww  REG    8,3        0 3858547 tmp.db/flintlock
=======
^C
bash-4.2#