Help for this page

Select Code to Download

Select or download this

RE_TIE: eval {
    tie %session, 'Apache::Session::MySQL', $session, {
        Handle => HH::DB->db_Main, LockHandle => HH::DB->db_Main
...
        die_nice('Database Error', 'Unable to connect at this time');
    }
}

Select or download this

my $tied = 0;
while (!$tied) {
    eval {
...
        $tied = 1;
    }
}