Ian Hickson - 2004-09-04

Logged In: YES
user_id=414927

The bug here is that Event.pm's args() method changed semantics
between 0.74 and 0.75 -- it used to expect a list of arguments, now it
expects a reference to a list of arguments.

This is a non-backwards-compatible change, and is quite clearly buggy (if
you pass it 0 it would do nothing but if you pass it 1 it would crash, e.g.).

Fixing this would consist of changing this:

----------------------------------
sub args {
my $self = shift;
my $args = shift;

if($args) {
my (@q, $i, $ct) = @{$args}; # This line is solemnly dedicated to
\mjd.
----------------------------------

...to something like this:

----------------------------------
sub args {
my $self = shift;
my (@q, $i, $ct) = @_;

if(@q) {
----------------------------------