ステートメントハンドルのクローズに失敗？

質問

お世話になります。
早速ですが、WindowsXP+perl5.8.8+sqlite3の環境で以下のようなプログラムを作成しました。

#!/usr/bin/perl
use DBI;
$mydb = "mokdb";
$hDB = DBI->connect(
"dbi:SQLite:dbname=$mydb","","",{PrintError=>0}
);
$sql = "select * from tshoku";
$sth = $hDB->prepare($sql);
my $rv = $sth->execute;
while( my $rs = $sth->fetchrow_hashref ){
print $rs->{'ts_key'},"\n";
}
$sth->finish;
$hDB->disconnect;
exit;

これを実行すると、テーブル"tshoku"内の項目"ts_key"がずらっと表示されるのですが、その後、$hDB->disconnect;のタイミングで
"closing dbh with active statement handles"
という警告が表示されます。
$hDB->disconnect;の直前にステートメントハンドルはクローズしているにもかかわらずこのような警告が表示されてしまうのは何故でしょうか？

回答No.2

t-okura · ベストアンサー

DBD::SQLite の未解決の不具合と思われます。
http://rt.cpan.org/Public/Bug/Display.html?id=22688

下記は http://www.perlmonks.org/?node_id=619312 からの抜粋ですが、undef $sth することでエラーを回避できるようです。
----------------------------------------------------------------
$sth->finish;
#undef $sth; # to stop "closing dbh with active statement handles"
# http://rt.cpan.org/Ticket/Display.html?id=22688
$dbh->disconnect;
----------------------------------------------------------------

SQLite は使ったことがなく、これで回避できるという自信はありませんので、参考意見としてください。

お礼

ご回答ありがとうございます。
ご回答いただいた内容を試してみたところ、見事に事象が発生しなくなりました。
「未解決の不具合」だったのかもしれません。

回答No.1

guci-ok

余り自信ないですが、
commitか、rollbackを呼んだら、結果どうなりますか？

更新はしていないし、ＤＢＩのドキュメントともずれてしまいますが、
これで出なくなったことがあったような記憶があります。

お礼

ご回答ありがとうございました。
connect時にAutoCommit=>0として$dbh->disconnectの直前に$dbh->commitとやってみたのですが、状況は変わりませんでした。