System error

error:  Can't use string ("DB Error: MySQL server has gone "...) as a HASH ref while "strict refs" in use at /usr/local/share/perl/5.20.2/EBSYS/DBI.pm line 61.
context: 
... 
57:  my @dbarr=db_get($subsql, $dbh);
58:  my %dbhash=();
59:  if($dbarr[0]){
60:  for (@dbarr){
61:  $dbhash{$_->{$primary}}=$_;
62:  }
63:  }
64:  return \%dbhash;
65:  }
... 
code stack:  /usr/local/share/perl/5.20.2/EBSYS/DBI.pm:61
/home/www/guest/www.koormai.com/lib/DeskmasterCMS/Koormai.pm:93
/home/www/guest/www.koormai.com/www/header.html:61
/home/www/guest/www.koormai.com/www/autohandler:103
raw error






























Can't use string ("DB Error: MySQL server has gone "...) as a HASH ref while "strict refs" in use at /usr/local/share/perl/5.20.2/EBSYS/DBI.pm line 61.


Trace begun at /usr/share/perl5/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Can\'t use string ("DB Error: MySQL server has gone "...) as a HASH ref while "strict refs" in use at /usr/local/share/perl/5.20.2/EBSYS/DBI.pm line 61.^J') called at /usr/local/share/perl/5.20.2/EBSYS/DBI.pm line 61
EBSYS::DBI::db_get_hash('SELECT catid,altname,catorder FROM dm_cat WHERE parent=0 AND art=1 AND catorder < 100', 'DBI::db=HASH(0x55746cbd0538)', 'catid') called at /home/www/guest/www.koormai.com/lib/DeskmasterCMS/Koormai.pm line 93
DeskmasterCMS::Koormai::get_db_rows_as_hashref('DeskmasterCMS::Koormai', 'HASH(0x55746c0d2798)') called at /home/www/guest/www.koormai.com/www/header.html line 61
HTML::Mason::Commands::__ANON__('vakai', undef, 'thokai', undef) called at /usr/share/perl5/HTML/Mason/Component.pm line 138
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x55746cb80390)', 'vakai', undef, 'thokai', undef) called at /usr/share/perl5/HTML/Mason/Request.pm line 1305
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1295
HTML::Mason::Request::comp(undef, undef, 'vakai', undef, 'thokai', undef) called at /home/www/guest/www.koormai.com/www/autohandler line 103
HTML::Mason::Commands::__ANON__ at /usr/share/perl5/HTML/Mason/Component.pm line 138
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x55746c32f060)') called at /usr/share/perl5/HTML/Mason/Request.pm line 1303
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1295
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/share/perl5/HTML/Mason/Request.pm line 484
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 484
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 436
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x55746ce57120)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 165
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x55746ce57120)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 831
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x55746bcd4428)', 'Apache2::RequestRec=SCALAR(0x55746ce5b578)') called at /etc/apache2/handler.pl line 54
MyApp::Mason::handler('Apache2::RequestRec=SCALAR(0x55746ce5b578)') called at -e line 0
eval {...} at -e line 0