System error

error:  Can't use string ("0") as a HASH ref while "strict refs" in use at /pub/usr/lib/perl5/My/mysql.pm line 1155.
context: 
... 
1151: 
1152:  # safeguard against too deep nesting from bugs/bad data
1153:  return if ($d++ > 100);
1154: 
1155:  $root ||= (keys %{ $thread_index->{0} })[0];
1156: 
1157:  if (my $children = $thread_index->{$root}) {
1158:  foreach my $k (keys %$children) {
1159:  if ($k == $target_num) {
... 
code stack:  /pub/usr/lib/perl5/My/mysql.pm:1155
/pub/www/db/mhtml/comps/message:256
/pub/www/db/mhtml/m.html:86
raw error






























Can't use string ("0") as a HASH ref while "strict refs" in use at /pub/usr/lib/perl5/My/mysql.pm line 1155.


Trace begun at /opt/local/lib/perl5/vendor_perl/5.28/HTML/Mason/Exceptions.pm line 125
HTML::Mason::Exceptions::rethrow_exception('Can\'t use string ("0") as a HASH ref while "strict refs" in use at /pub/usr/lib/perl5/My/mysql.pm line 1155.^J') called at /pub/usr/lib/perl5/My/mysql.pm line 1155
My::mysql::get_follow_up_trail(0, 113135) called at /pub/www/db/mhtml/comps/message line 256
HTML::Mason::Commands::__ANON__('ad_link', 't', 'highlight', 'Glen B', 'is_member', undef, 'FORM', 'HASH(0x7f9e85d934f0)', 'FORUM', 'HASH(0x7f9e85dd5128)', 'cookies', 'HASH(0x7f9e81521a70)', 'ref', 'HASH(0x7f9e85dcf6c8)', 'search_url', '/cgi/search.mpl', 'user', 'HASH(0x7f9e85dd2cb0)', 'social', 1) called at /opt/local/lib/perl5/vendor_perl/5.28/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7f9e814478e8)', 'ad_link', 't', 'highlight', 'Glen B', 'is_member', undef, 'FORM', 'HASH(0x7f9e85d934f0)', 'FORUM', 'HASH(0x7f9e85dd5128)', 'cookies', 'HASH(0x7f9e81521a70)', 'ref', 'HASH(0x7f9e85dcf6c8)', 'search_url', '/cgi/search.mpl', 'user', 'HASH(0x7f9e85dd2cb0)', 'social', 1) called at /opt/local/lib/perl5/vendor_perl/5.28/HTML/Mason/Request.pm line 1302
eval {...} at /opt/local/lib/perl5/vendor_perl/5.28/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, 'ad_link', 't', 'highlight', 'Glen B', 'is_member', undef, 'FORM', 'HASH(0x7f9e85d934f0)', 'FORUM', 'HASH(0x7f9e85dd5128)', 'cookies', 'HASH(0x7f9e81521a70)', 'ref', 'HASH(0x7f9e85dcf6c8)', 'search_url', '/cgi/search.mpl', 'user', 'HASH(0x7f9e85dd2cb0)', 'social', 1) called at /pub/www/db/mhtml/m.html line 86
HTML::Mason::Commands::__ANON__('r', '', 'search_url', '/cgi/search.mpl?ForumSelect=Selected&topics_only=N&author=PeterS&forum=ALL&', 'n', 113135, 'forum', 'amp', 'highlight', 'Glen B') called at /opt/local/lib/perl5/vendor_perl/5.28/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7f9e85a71b30)', 'r', '', 'search_url', '/cgi/search.mpl?ForumSelect=Selected&topics_only=N&author=PeterS&forum=ALL&', 'n', 113135, 'forum', 'amp', 'highlight', 'Glen B') called at /opt/local/lib/perl5/vendor_perl/5.28/HTML/Mason/Request.pm line 1300
eval {...} at /opt/local/lib/perl5/vendor_perl/5.28/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef, 'r', '', 'search_url', '/cgi/search.mpl?ForumSelect=Selected&topics_only=N&author=PeterS&forum=ALL&', 'n', 113135, 'forum', 'amp', 'highlight', 'Glen B') called at /opt/local/lib/perl5/vendor_perl/5.28/HTML/Mason/Request.pm line 481
eval {...} at /opt/local/lib/perl5/vendor_perl/5.28/HTML/Mason/Request.pm line 481
eval {...} at /opt/local/lib/perl5/vendor_perl/5.28/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f9e85dd2d28)') called at /opt/local/lib/perl5/vendor_perl/5.28/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f9e85dd2d28)') called at /opt/local/lib/perl5/vendor_perl/5.28/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x7f9e869362f8)', 'Apache2::RequestRec=SCALAR(0x7f9e85cce658)') called at (eval 26) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x7f9e85cce658)') called at -e line 0
eval {...} at -e line 0