System error

error:  Can't locate object method "header_in" via package "Apache2::RequestRec" at /var/www/html/ucc/search/autohandler line 109.
context: 
... 
105: 
106:  unless ($range eq 'all'){
107: 
108:  # determine based on referer
109:  $referer = $r ->header_in("Referer");
110:  my $art = $1 if $referer =~ /\/ucc\/([0-9A]+)/;
111:  $INDEXES = "$idxdir/ucc$art.index" if $art;
112: 
113:  }
... 
code stack:  /var/www/html/ucc/search/autohandler:109
raw error






























Can't locate object method "header_in" via package "Apache2::RequestRec" at /var/www/html/ucc/search/autohandler line 109.


Trace begun at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Can\'t locate object method "header_in" via package "Apache2::RequestRec" at /var/www/html/ucc/search/autohandler line 109.^J') called at /var/www/html/ucc/search/autohandler line 109
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(0x552c627300)') called at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 1257
eval {...} at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 1252
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 466
eval {...} at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 466
eval {...} at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/Request.pm line 418
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x552c4a6ce0)') called at /usr/lib/perl5/site_perl/5.8.5/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x552c4a6ce0)') 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(0x552c3baa60)', 'Apache2::RequestRec=SCALAR(0x552b970090)') called at (eval 29) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x552b970090)') called at -e line 0
eval {...} at -e line 0