System error

error:  Undefined subroutine &DBD::mysql::db::_login called at /opt/perl-5.8.8/lib/site_perl/5.8.8/x86_64-linux-thread-multi/DBD/mysql.pm line 157.
context: 
... 
153:  {
154:  return undef;
155:  }
156: 
157:  DBD::mysql::db::_login($this, $dsn, $username, $password)
158:  or $this = undef;
159: 
160:  if ($this && ($ENV{MOD_PERL} || $ENV{GATEWAY_INTERFACE})) {
161:  $this->{mysql_auto_reconnect} = 1;
... 
code stack:  /opt/perl-5.8.8/lib/site_perl/5.8.8/x86_64-linux-thread-multi/DBD/mysql.pm:157
/opt/perl-5.8.8/lib/site_perl/5.8.8/x86_64-linux-thread-multi/DBI.pm:679
/opt/perl-5.8.8/lib/site_perl/5.8.8/x86_64-linux-thread-multi/DBI.pm:748
/opt/perl-5.8.8/lib/site_perl/5.8.8/x86_64-linux-thread-multi/HKMDB/Database.pm:324
/opt/perl-5.8.8/lib/site_perl/5.8.8/x86_64-linux-thread-multi/HKMDB/Database.pm:291
/var/www/db/people/autohandler:215
/var/www/db/autohandler:2
raw error






























Undefined subroutine &DBD::mysql::db::_login called at /opt/perl-5.8.8/lib/site_perl/5.8.8/x86_64-linux-thread-multi/DBD/mysql.pm line 157.


Trace begun at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Exceptions.pm line 125
HTML::Mason::Exceptions::rethrow_exception('Undefined subroutine &DBD::mysql::db::_login called at /opt/perl-5.8.8/lib/site_perl/5.8.8/x86_64-linux-thread-multi/DBD/mysql.pm line 157.^J') called at /opt/perl-5.8.8/lib/site_perl/5.8.8/x86_64-linux-thread-multi/DBD/mysql.pm line 157
DBD::mysql::dr::connect('DBI::dr=HASH(0x7f589805ddc0)', 'database=hkmdb:mysql_compression=1;', 'root', '', 'HASH(0x7f58843f8d20)') called at /opt/perl-5.8.8/lib/site_perl/5.8.8/x86_64-linux-thread-multi/DBI.pm line 679
DBI::__ANON__(undef, undef) called at /opt/perl-5.8.8/lib/site_perl/5.8.8/x86_64-linux-thread-multi/DBI.pm line 748
DBI::connect('DBI', 'DBI:mysql:database=hkmdb:mysql_compression=1;', 'root', '') called at /opt/perl-5.8.8/lib/site_perl/5.8.8/x86_64-linux-thread-multi/HKMDB/Database.pm line 324
HKMDB::Database::connect('HKMDB::Database=HASH(0x2d9a4a0)', 'db', 'hkmdb') called at /opt/perl-5.8.8/lib/site_perl/5.8.8/x86_64-linux-thread-multi/HKMDB/Database.pm line 291
HKMDB::Database::new('HKMDB::Database') called at /var/www/db/people/autohandler line 215
HTML::Mason::Commands::__ANON__('display_set', 'big5', 'id', 16453, 'display_set', 'big5', 'id', 16453) called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7f589804b3a0)', 'display_set', 'big5', 'id', 16453, 'display_set', 'big5', 'id', 16453) called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 1302
eval {...} at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef, 'display_set', 'big5', 'id', 16453, 'display_set', 'big5', 'id', 16453) called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 955
HTML::Mason::Request::call_next('HTML::Mason::Request::ApacheHandler=HASH(0x2d83a10)', 'display_set', 'big5', 'id', 16453) called at /var/www/db/autohandler line 2
HTML::Mason::Commands::__ANON__('display_set', 'big5', 'id', 16453) called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7f589804b640)', 'display_set', 'big5', 'id', 16453) called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 1297
eval {...} at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef, 'display_set', 'big5', 'id', 16453) called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 481
eval {...} at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 481
eval {...} at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x2d83a10)') called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x2d83a10)') called at /opt/perl-5.8.8/lib/site_perl/5.8.8/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x2a79340)', 'Apache2::RequestRec=SCALAR(0x2daad40)') called at (eval 30) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x2daad40)') called at -e line 0
eval {...} at -e line 0