"Dermot Paikkos" <[EMAIL PROTECTED]> writes:
[...]
> foreach my $param ($r->param) {
> print STDERR "\$r->$param = ".scalar($r->param($param))."\n";
> # $hash_ref->{$r->param($param)} = 0;
Have you tried using a slice there?
@{$hash_ref}{$r->param($param)} = (); # values are now undef, not 0
You need the slice syntax to put $r->param($param) in list context.
--
Joe Schaefer
--
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html