This is wrong:

sub Vars {
    my $self = shift;
    my @hash_list = ();
    my @params = $self->param;
    for my $param(@params) {
        my @values = $self->param($param);
        push @hash_list, ($param, (join /\000/, @values));
    }
  return @hash_list;
}
[download]

join() takes a string, not a regex. The patch:

sub Vars {
    my $self = shift;
    my @hash_list = ();
    my @params = $self->param;
    for my $param(@params) {
        my @values = $self->param($param);
        push @hash_list, ($param, (join "\0", @values));
    }
  return @hash_list;
}
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;