System error

error:  Modification of non-creatable array value attempted, subscript -1 at /opt/www/anime/html/wiki_history.html line 39.
context: 
... 
35:  <input type="hidden" name="title" value="<% $title %>" />
36:  <p>Legend: (cur) = difference with current version, (last) = difference with
37:  preceding version</p>
38:  <input type="submit" value="Compare Selected Versions" /><br />
39:  % my $current = $versions[-1]->{'version'};
40:  % my @version_queue = @versions;
41:  % while ( $_ = pop @version_queue ) {
42:  % if ( $current ne $$_{'version'} ) {
43:  <a href="/wiki_diff.html?title=<% $title |u %>&amp;to=<% $current %>&amp;from=<% $$_{'version'} %>">(cur)</a>
... 
code stack:  /opt/www/anime/html/wiki_history.html:39
/opt/www/anime/html/autohandler:98
raw error






























Modification of non-creatable array value attempted, subscript -1 at /opt/www/anime/html/wiki_history.html line 39.


Trace begun at /opt/perl/site_lib/5.8.8/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Modification of non-creatable array value attempted, subscript -1 at /opt/www/anime/html/wiki_history.html line 39.^J') called at /opt/www/anime/html/wiki_history.html line 39
HTML::Mason::Commands::__ANON__('vars', 'HASH(0xa632c24)', 'tdir', '/themes/default', 'path_info', 'Community') called at /opt/perl/site_lib/5.8.8/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0xa3d5564)', 'vars', 'HASH(0xa632c24)', 'tdir', '/themes/default', 'path_info', 'Community') called at /opt/perl/site_lib/5.8.8/HTML/Mason/Request.pm line 1262
eval {...} at /opt/perl/site_lib/5.8.8/HTML/Mason/Request.pm line 1252
HTML::Mason::Request::comp(undef, undef, undef, 'vars', 'HASH(0xa632c24)', 'tdir', '/themes/default', 'path_info', 'Community') called at /opt/perl/site_lib/5.8.8/HTML/Mason/Request.pm line 1310
HTML::Mason::Request::scomp('HTML::Mason::Request::CGI=HASH(0xa5bea0c)', 'HTML::Mason::Component::FileBased=HASH(0xa3d5564)', 'vars', 'HASH(0xa632c24)', 'tdir', '/themes/default', 'path_info', 'Community') called at /opt/www/anime/html/autohandler line 98
HTML::Mason::Commands::__ANON__ at /opt/perl/site_lib/5.8.8/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0xa32452c)') called at /opt/perl/site_lib/5.8.8/HTML/Mason/Request.pm line 1257
eval {...} at /opt/perl/site_lib/5.8.8/HTML/Mason/Request.pm line 1252
HTML::Mason::Request::comp(undef, undef, undef) called at /opt/perl/site_lib/5.8.8/HTML/Mason/Request.pm line 466
eval {...} at /opt/perl/site_lib/5.8.8/HTML/Mason/Request.pm line 466
eval {...} at /opt/perl/site_lib/5.8.8/HTML/Mason/Request.pm line 418
HTML::Mason::Request::exec('HTML::Mason::Request::CGI=HASH(0xa5bea0c)') called at /opt/perl/site_lib/5.8.8/HTML/Mason/CGIHandler.pm line 192
eval {...} at /opt/perl/site_lib/5.8.8/HTML/Mason/CGIHandler.pm line 192
HTML::Mason::Request::CGI::exec('HTML::Mason::Request::CGI=HASH(0xa5bea0c)') called at /opt/perl/site_lib/5.8.8/HTML/Mason/Interp.pm line 342
HTML::Mason::Interp::exec(undef, undef) called at /opt/perl/site_lib/5.8.8/HTML/Mason/CGIHandler.pm line 123
eval {...} at /opt/perl/site_lib/5.8.8/HTML/Mason/CGIHandler.pm line 123
HTML::Mason::CGIHandler::_handler('HTML::Mason::CGIHandler=HASH(0xa3d2bf8)', 'HASH(0xa59aab8)') called at /usr/local/bin/mason-http line 208
eval {...} at /usr/local/bin/mason-http line 206
HTTP::MasonServer::handle_request('HTTP::MasonServer=HASH(0xa2b2aec)', 'CGI=HASH(0xa63651c)') called at /opt/perl/site_lib/5.8.8/HTTP/Server/Simple/CGI.pm line 92
eval {...} at /opt/perl/site_lib/5.8.8/HTTP/Server/Simple/CGI.pm line 92
HTTP::Server::Simple::CGI::handler('HTTP::MasonServer=HASH(0xa2b2aec)') called at /usr/local/bin/mason-http line 177
HTTP::MasonServer::handler('HTTP::MasonServer=HASH(0xa2b2aec)') called at /opt/perl/site_lib/5.8.8/HTTP/Server/Simple.pm line 334
HTTP::Server::Simple::__ANON__('HTTP::MasonServer::NetServer0=HASH(0xa2c2d7c)') called at /opt/perl/site_lib/5.8.8/Net/Server.pm line 141
Net::Server::run_client_connection('HTTP::MasonServer::NetServer0=HASH(0xa2c2d7c)') called at /opt/perl/site_lib/5.8.8/Net/Server/PreFork.pm line 268
eval {...} at /opt/perl/site_lib/5.8.8/Net/Server/PreFork.pm line 268
Net::Server::PreFork::run_child('HTTP::MasonServer::NetServer0=HASH(0xa2c2d7c)') called at /opt/perl/site_lib/5.8.8/Net/Server/PreFork.pm line 224
Net::Server::PreFork::run_n_children('HTTP::MasonServer::NetServer0=HASH(0xa2c2d7c)', 1) called at /opt/perl/site_lib/5.8.8/Net/Server/PreFork.pm line 447
Net::Server::PreFork::coordinate_children('HTTP::MasonServer::NetServer0=HASH(0xa2c2d7c)') called at /opt/perl/site_lib/5.8.8/Net/Server/PreFork.pm line 393
Net::Server::PreFork::run_parent('HTTP::MasonServer::NetServer0=HASH(0xa2c2d7c)') called at /opt/perl/site_lib/5.8.8/Net/Server/PreFork.pm line 142
Net::Server::PreFork::loop('HTTP::MasonServer::NetServer0=HASH(0xa2c2d7c)') called at /opt/perl/site_lib/5.8.8/Net/Server.pm line 116
Net::Server::run('HTTP::MasonServer::NetServer0', 'port', 8000) called at /opt/perl/site_lib/5.8.8/HTTP/Server/Simple.pm line 233
HTTP::Server::Simple::run('HTTP::MasonServer=HASH(0xa2b2aec)') called at /usr/local/bin/mason-http line 79
HTTP::MasonServer::run('HTTP::MasonServer=HASH(0xa2b2aec)') called at /usr/local/bin/mason-http line 338