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/rvp.militera.org/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.28.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', 'megabase', '3DksWDM8dkLck4Xp') called at /home/hosting/rvp.militera.org/html/autohandler line 4
HTML::Mason::Commands::__ANON__('sort', 11347, 'sort1', 8830, 'sort2', 'chrono', 'cat', 45373) called at /usr/local/share/perl/5.28.1/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x55fe266ff388)', 'sort', 11347, 'sort1', 8830, 'sort2', 'chrono', 'cat', 45373) called at /usr/local/share/perl/5.28.1/HTML/Mason/Request.pm line 1300
eval {...} at /usr/local/share/perl/5.28.1/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef, 'sort', 11347, 'sort1', 8830, 'sort2', 'chrono', 'cat', 45373) called at /usr/local/share/perl/5.28.1/HTML/Mason/Request.pm line 481
eval {...} at /usr/local/share/perl/5.28.1/HTML/Mason/Request.pm line 481
eval {...} at /usr/local/share/perl/5.28.1/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x55fe2652d148)') called at /usr/local/share/perl/5.28.1/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x55fe2652d148)') called at /usr/local/share/perl/5.28.1/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x55fe26525fb0)', 'Apache2::RequestRec=SCALAR(0x55fe24cff7b8)') called at (eval 23) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x55fe24cff7b8)') called at -e line 0
eval {...} at -e line 0