System error

error:  Can't call method "do" on an undefined value at /home/hosting/milrussia/lib/mr/core.pm line 50.
context: 
... 
46:  my $passwd = $sys::config::mysql_passwd;
47:  my $db = $sys::config::mysql_db;
48:  my $host = $sys::config::mysql_host;
49:  $mr::dbh = DBI->connect("DBI:mysql:$db:$host", $login, $passwd);
50:  $mr::dbh->do(qq{SET NAMES 'utf8'}) or die $mr::dbh->errstr;
51:  std_out ("Connected to database.");
52:  }
53: 
54:  sub db_disconnect {
... 
code stack:  /home/hosting/milrussia/lib/mr/core.pm:50
/home/hosting/pressa-voiny.ru/html/autohandler:4
raw error






























Can't call method "do" on an undefined value at /home/hosting/milrussia/lib/mr/core.pm line 50.


Trace begun at /usr/local/share/perl/5.24.1/HTML/Mason/Exceptions.pm line 125
HTML::Mason::Exceptions::rethrow_exception('Can\'t call method "do" on an undefined value at /home/hosting/milrussia/lib/mr/core.pm line 50.^J') called at /home/hosting/milrussia/lib/mr/core.pm line 50
mr::core::db_connect('mil', 'mr', 'UgTuAcs9') called at /home/hosting/pressa-voiny.ru/html/autohandler line 4
HTML::Mason::Commands::__ANON__('sort', 'x', 'year', 1942, 'day', 30, 'month', 11, 'node', 35380) called at /usr/local/share/perl/5.24.1/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x56052593bcd0)', 'sort', 'x', 'year', 1942, 'day', 30, 'month', 11, 'node', 35380) called at /usr/local/share/perl/5.24.1/HTML/Mason/Request.pm line 1300
eval {...} at /usr/local/share/perl/5.24.1/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef, 'sort', 'x', 'year', 1942, 'day', 30, 'month', 11, 'node', 35380) called at /usr/local/share/perl/5.24.1/HTML/Mason/Request.pm line 481
eval {...} at /usr/local/share/perl/5.24.1/HTML/Mason/Request.pm line 481
eval {...} at /usr/local/share/perl/5.24.1/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x56052593eb68)') called at /usr/local/share/perl/5.24.1/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x56052593eb68)') called at /usr/local/share/perl/5.24.1/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x560524f9c990)', 'Apache2::RequestRec=SCALAR(0x560523f57a00)') called at (eval 23) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x560523f57a00)') called at -e line 0
eval {...} at -e line 0