System error

error:  Can't call method "do" on an undefined value at /opt/userdata/www/uapetrol.com/mpl/sys/handler.mpl line 51.
context: 
... 
47:  $dbhTZED = DBI->connect('DBI:mysql:uktzed:localhost:3306',$DBUser,$DBPass) or warn "Can't connect to DB UkTZED\n";
48:  $dbhOilPrice = DBI->connect('DBI:mysql:dbhOilPrice:localhost:3306',$DBUser,$DBPass) or warn "Can't connect to DB UkTZED\n";
49:  #$dbhMap = DBI->connect('DBI:mysql:ukr_map:localhost:3306',$DBUser,$DBPass) or warn "Can't connect to DB UkTZED\n";
50: 
51:  $dbhUse->do('SET NAMES cp1251;');
52:  $dbhSes->do('SET NAMES cp1251;');
53:  $dbhOil->do('SET NAMES cp1251;');
54:  $dbhOilOld->do('SET NAMES cp1251;');
55:  $dbhTem->do('SET NAMES cp1251;');
... 
code stack:  /opt/userdata/www/uapetrol.com/mpl/sys/handler.mpl:51
raw error






























Can't call method "do" on an undefined value at /opt/userdata/www/uapetrol.com/mpl/sys/handler.mpl line 51.


Trace begun at /usr/local/lib/perl5/site_perl/HTML/Mason/Exceptions.pm line 125
HTML::Mason::Exceptions::rethrow_exception('Can\'t call method "do" on an undefined value at /opt/userdata/www/uapetrol.com/mpl/sys/handler.mpl line 51.^J') called at /opt/userdata/www/uapetrol.com/mpl/sys/handler.mpl line 51
HTML::Mason::Commands::__ANON__ at /usr/local/lib/perl5/site_perl/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x826326798)') called at /usr/local/lib/perl5/site_perl/HTML/Mason/Request.pm line 1300
eval {...} at /usr/local/lib/perl5/site_perl/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/local/lib/perl5/site_perl/HTML/Mason/Request.pm line 481
eval {...} at /usr/local/lib/perl5/site_perl/HTML/Mason/Request.pm line 481
eval {...} at /usr/local/lib/perl5/site_perl/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x8263cc978)') called at /usr/local/lib/perl5/site_perl/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x8263cc978)') called at /usr/local/lib/perl5/site_perl/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x80640cb10)', 'Apache2::RequestRec=SCALAR(0x82639d9f0)') called at (eval 26) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x82639d9f0)') called at -e line 0
eval {...} at -e line 0