結局バージョンを見ることにした。
if ($CGI::Session::VERSION < 4) {# Ver3.xx
require CGI::Session::MySQL;
$CGI::Session::MySQL::TABLE_NAME = "";# -w対策
$CGI::Session::MySQL::TABLE_NAME = $tn->{session};
$session = CGI::Session->new("dr:MySQL", $cgi, {Handle => $dbh}); # クッキーやフォーム情報からＩＤを自動的に取得する。なければ新しく作成。
} else { # Ver4.xx
$session = CGI::Session->new("dr:mysql", $cgi, {Handle => $dbh, TableName => $tn->{session}}); # クッキーやフォーム情報からＩＤを自動的に取得する。なければ新しく作成。
}
今度は4.xxでは未調整。。。
4.xxでも、動作は確認した。
3.xxで失敗していたのは、実際にはevalとrequireの書き方がまずかった気がする。
if (eval q{require CGI::Session::MySQL}) {
...
とやっていればよかったのかも？
