のぶろぐ

前エントリの対処方法。

結局はCGI::Session::MySQLがロードできるかどうかを見ることにした。

if (eval q{require "CGI::Session::MySQL"}) {
    # Ver3.xx
    $CGI::Session::MySQL::TABLE_NAME = $tablename;
    $session = CGI::Session->new("dr:MySQL", $cgi, {Handle => $dbh});
} else {
    # Ver4.xx
    $session = CGI::Session->new("dr:mysql", $cgi, {Handle => $dbh, TableName => $tablename});
}

ま、3.xx環境ではまだテストしてませんが…。