System error

error:  Can't use an undefined value as a HASH reference at /home/www/htdocs/production/shared/db/getConnection line 12.
context: 
... 
8: 
9:  #if ($ENV{SERVER_NAME} =~ m/$db/) {
10:  my ($dbs) = $m->comp('/shared/data/readDump',
11:  file=>'/home/www/mason/connect.dmp');
12:  my %db = %{$dbs->{$db}};
13:  my $dbh = Mysql->connect($db{'host'},$db{db},$db{login},$db{passwd});
14: 
15:  return $dbh;
16:  #} else {
... 
code stack:  /home/www/htdocs/production/shared/db/getConnection:12
/home/www/htdocs/production/mojam/affl/affiliates.html:37
raw error






























Can't use an undefined value as a HASH reference at /home/www/htdocs/production/shared/db/getConnection line 12.


Trace begun at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Can\'t use an undefined value as a HASH reference at /home/www/htdocs/production/shared/db/getConnection line 12.^J') called at /home/www/htdocs/production/shared/db/getConnection line 12
HTML::Mason::Commands::__ANON__('db', 'mojam') called at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x9ec4134)', 'db', 'mojam') called at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 1251
eval {...} at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 1246
HTML::Mason::Request::comp(undef, undef, 'db', 'mojam') called at /home/www/htdocs/production/mojam/affl/affiliates.html line 37
HTML::Mason::Commands::__ANON__ at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0xa4be120)') called at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 1251
eval {...} at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 1246
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 460
eval {...} at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 460
eval {...} at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 412
HTML::Mason::Request::exec('MasonX::Request::WithApacheSession=HASH(0x98603a8)') called at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('MasonX::Request::WithApacheSession=HASH(0x98603a8)') called at /usr/lib/perl5/site_perl/5.8.5/MasonX/Request/WithApacheSession.pm line 130
MasonX::Request::WithApacheSession::exec('MasonX::Request::WithApacheSession=HASH(0x98603a8)') called at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/ApacheHandler.pm line 826
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x993ec04)', 'Apache=SCALAR(0xa4bde18)') called at (eval 35) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache=SCALAR(0xa4bde18)') called at /dev/null line 0
eval {...} at /dev/null line 0