System error

error:

Can't use an undefined value as a symbol reference at /home/classical-composers/public_html/www/mason/apf.mhtml line 41.

context:

...
37:	$_am = encode('UTF-8',get("http://$ENV{'HTTP_HOST'}/mp/apf_4/apf4.cgi?Operation=ItemSearch&$composerkeywords=$keywords&SearchIndex=$searchindex&Sort=$Sort&locale=$locale&max_results=6"));
38:	$_am =~ s/.+<!--begin_amazon_incl-->(.+)<!--end_amazon_incl-->.+/$1/s;
39:
40:	$_am = p('[No items found.]') if $_am =~ /Error: We did not find any matches/;
41:	binmode $_am;
42:	</%perl>
43:	<% $_am %>
44:

code stack:

/home/classical-composers/public_html/www/mason/apf.mhtml:41
/usr/share/perl5/HTML/Mason/Request.pm:848
/home/classical-composers/public_html/www/mason/apf.mhtml:9
/home/classical-composers/public_html/www/mason/sub_comp.mhtml:109
/home/classical-composers/public_html/www/mason/index.html:884

raw error

Can't use an undefined value as a symbol reference at /home/classical-composers/public_html/www/mason/apf.mhtml line 41.


Trace begun at /usr/share/perl5/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Can\'t use an undefined value as a symbol reference at /home/classical-composers/public_html/www/mason/apf.mhtml line 41.^J') called at /home/classical-composers/public_html/www/mason/apf.mhtml line 41
HTML::Mason::Commands::__ANON__('id', 'minotto', 'fnm', 'Paul', 'snm', 'Minotto', 'rest', 'ARRAY(0x7f6066bcbdf8)', 'locale', 'us') called at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7f60668fcfe8)', 'id', 'minotto', 'fnm', 'Paul', 'snm', 'Minotto', 'rest', 'ARRAY(0x7f6066bcbdf8)', 'locale', 'us') called at /usr/share/perl5/HTML/Mason/Request.pm line 919
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 918
HTML::Mason::Request::call_self('HTML::Mason::Request::ApacheHandler=HASH(0x7f6066bcba38)', 'SCALAR(0x7f60653c6678)', 'ARRAY(0x7f60653c66d8)', 'SCALAR(0x7f60653c66a8)', 'CACHE_SELF') called at /usr/share/perl5/HTML/Mason/Request.pm line 848
HTML::Mason::Request::cache_self('HTML::Mason::Request::ApacheHandler=HASH(0x7f6066bcba38)', 'key', 'minotto/DVD/us', 'expires_in', '1 week') called at /home/classical-composers/public_html/www/mason/apf.mhtml line 9
HTML::Mason::Commands::__ANON__('id', 'minotto', 'fnm', 'Paul', 'snm', 'Minotto', 'rest', 'ARRAY(0x7f6066bcbdf8)', 'locale', 'us') called at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7f60668fcfe8)', 'id', 'minotto', 'fnm', 'Paul', 'snm', 'Minotto', 'rest', 'ARRAY(0x7f6066bcbdf8)', 'locale', 'us') called at /usr/share/perl5/HTML/Mason/Request.pm line 1302
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, 'id', 'minotto', 'fnm', 'Paul', 'snm', 'Minotto', 'rest', 'ARRAY(0x7f6066bcbdf8)', 'locale', 'us') called at /home/classical-composers/public_html/www/mason/sub_comp.mhtml line 109
HTML::Mason::Commands::__ANON__('data', 'ARRAY(0x7f6066bbc560)', 'id', 'minotto', 'rest', 'ARRAY(0x7f6066bcb960)', 'comment_error', '', 'user', '', 'logged_in', 0, 'sid', '---', 'smpstring', '', '_id', 'minotto/DVD', '_type', 'comp') called at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7f60668a54e0)', 'data', 'ARRAY(0x7f6066bbc560)', 'id', 'minotto', 'rest', 'ARRAY(0x7f6066bcb960)', 'comment_error', '', 'user', '', 'logged_in', 0, 'sid', '---', 'smpstring', '', '_id', 'minotto/DVD', '_type', 'comp') called at /usr/share/perl5/HTML/Mason/Request.pm line 1302
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, 'data', 'ARRAY(0x7f6066bbc560)', 'id', 'minotto', 'rest', 'ARRAY(0x7f6066bcb960)', 'comment_error', '', 'user', '', 'logged_in', 0, 'sid', '---', 'smpstring', '', '_id', 'minotto/DVD', '_type', 'comp') called at /home/classical-composers/public_html/www/mason/index.html line 884
HTML::Mason::Commands::__ANON__('_id', 'minotto/DVD', '_type', 'comp') called at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7f60657a66b0)', '_id', 'minotto/DVD', '_type', 'comp') called at /usr/share/perl5/HTML/Mason/Request.pm line 1297
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef, '_id', 'minotto/DVD', '_type', 'comp') called at /usr/share/perl5/HTML/Mason/Request.pm line 481
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 481
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f6066bcba38)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 165
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f6066bcba38)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 831
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x7f6065535870)', 'Apache2::RequestRec=SCALAR(0x7f6065bdd8f0)') called at (eval 34) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x7f6065bdd8f0)') called at -e line 0
eval {...} at -e line 0