System error

error:  Can't use string ("1") as an ARRAY ref while "strict refs" in use at /var/www/lib/GnaNewsCenter.pm line 390, <GEN5189> line 16.
context: 
... 
386: 
387:  sub add {
388:  my($self, $item) = @_;
389:  push(@{$self->{'list'}}, $item);
390:  if ($self->{'last_n'} > 0 &&
391:  $#{@{$self->{'list'}}} >= $self->{'last_n'}) {
392:  shift(@{$self->{'list'}});
393:  }
394:  }
... 
code stack:  /var/www/lib/GnaNewsCenter.pm:390
/var/www/lib/GnaNewsCenter.pm:59
/var/www/html/shared/newscenter.html:49
/var/www/html/channels/teachers.html:23
/var/www/html/channels/autohandler:18
raw error






























Can't use string ("1") as an ARRAY ref while "strict refs" in use at /var/www/lib/GnaNewsCenter.pm line 390, <GEN5189> line 16.


Trace begun at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Can\'t use string ("1") as an ARRAY ref while "strict refs" in use at /var/www/lib/GnaNewsCenter.pm line 390, <GEN5189> line 16.^J') called at /var/www/lib/GnaNewsCenter.pm line 390
GnaNewsStack::add('GnaNewsStack=HASH(0x9ff0900)', '<table>^J<tr>^J<td>^J<b>California Virtual back online</b>^J^J<br>Posted on Wednesday 1999 November 24 at 08:50:39 GMT^J</td>^J</tr>^J<tr>^J<td>^JWe have received word that California Virtual Campus is back online at <a href=http://www.cvc.edu>http://www.cvc.edu</a>.^J^J</td>^J</tr>^J<tr>^J<td>^J</td>^J</tr>^J^J</table>^J') called at /var/www/lib/GnaNewsCenter.pm line 59
GnaNewsCenter::headlines('GnaNewsCenter=HASH(0x9fe9418)', 'headlines', 'GnaNewsSelector=HASH(0x9feff70)') called at /var/www/html/shared/newscenter.html line 49
HTML::Mason::Commands::__ANON__('lastn', 3, 'style', 'headlines', 'type', 'teaching', 'header', 'Distance Learning News for Teachers', 'submit_news', 1, 'archive_link', '/mason/news/archive.html') called at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x9ddb540)', 'lastn', 3, 'style', 'headlines', 'type', 'teaching', 'header', 'Distance Learning News for Teachers', 'submit_news', 1, 'archive_link', '/mason/news/archive.html') called at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 1256
eval {...} at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 1250
HTML::Mason::Request::comp(undef, undef, 'lastn', 3, 'style', 'headlines', 'type', 'teaching', 'header', 'Distance Learning News for Teachers', 'submit_news', 1, 'archive_link', '/mason/news/archive.html') called at /var/www/html/channels/teachers.html line 23
HTML::Mason::Commands::__ANON__ at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x9dc1188)') called at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 1251
eval {...} at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 1250
HTML::Mason::Request::comp(undef, undef) called at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 915
HTML::Mason::Request::call_next('HTML::Mason::Request::ApacheHandler=HASH(0x9fe5fb0)') called at /var/www/html/channels/autohandler line 18
HTML::Mason::Commands::__ANON__ at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x9d72e90)') called at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 1251
eval {...} at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 1250
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 460
eval {...} at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 460
eval {...} at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/Request.pm line 412
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x9fe5fb0)') called at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x9fe5fb0)') called at /usr/lib/perl5/vendor_perl/5.10.0/HTML/Mason/ApacheHandler.pm line 827
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x8d01038)', 'Apache2::RequestRec=SCALAR(0xa00a068)') called at (eval 82) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0xa00a068)') called at -e line 0
eval {...} at -e line 0