System error

error:  Can't use string ("Parsing problem") as a HASH ref while "strict refs" in use at /usr/www/users/sultmhoo/article.html line 16.
context: 
... 
12:  my $article = $m->comp('_store.html:get',type=>'article',number=>$ARGS{'article'},object=>'structure'); # get the article's data
13:  if($article->{'status'} ne "OK") { $article = $m->comp('_store.html:get',type=>'article',number=>'35532',object=>'structure') }; #if something blew up, go to "article not found" article
14:  if($article->{'status'} ne "OK") { die $ARGS{'article'}." ".$article->{'content'} }; # otherwise die
15:  # the next switches check the template and forward the user to the correct template as needed. comic, gallery or bigimage
16:  if($article->{'content'}->{'gadgets'}->{'text'} ne "") {
17:  $m->redirect($article->{'content'}->{'gadgets'}->{'text'});
18:  exit 0;
19:  }
20: 
... 
code stack:  /usr/www/users/sultmhoo/article.html:16
raw error






























Can't use string ("Parsing problem") as a HASH ref while "strict refs" in use at /usr/www/users/sultmhoo/article.html line 16.


Trace begun at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Can\'t use string ("Parsing problem") as a HASH ref while "strict refs" in use at /usr/www/users/sultmhoo/article.html line 16.^J') called at /usr/www/users/sultmhoo/article.html line 16
HTML::Mason::Commands::__ANON__('article', 30476) called at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x85e13bc)', 'article', 30476) called at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Request.pm line 1279
eval {...} at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Request.pm line 1274
HTML::Mason::Request::comp(undef, undef, undef, 'article', 30476) called at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Request.pm line 473
eval {...} at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Request.pm line 473
eval {...} at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Request.pm line 425
HTML::Mason::Request::exec('HTML::Mason::Request::CGI=HASH(0x855c61c)') called at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/CGIHandler.pm line 190
eval {...} at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/CGIHandler.pm line 190
HTML::Mason::Request::CGI::exec('HTML::Mason::Request::CGI=HASH(0x855c61c)') called at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Interp.pm line 342
HTML::Mason::Interp::exec(undef, undef, 'article', 30476) called at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/CGIHandler.pm line 121
eval {...} at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/CGIHandler.pm line 121
HTML::Mason::CGIHandler::_handler('HTML::Mason::CGIHandler=HASH(0x855c568)', 'HASH(0x8100b14)') called at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/CGIHandler.pm line 63
HTML::Mason::CGIHandler::handle_request('HTML::Mason::CGIHandler=HASH(0x855c568)') called at /usr/home/sultmhoo/public_html/cgi-bin/mason-handler.pl line 11