Found the solution (my apologies).
I am receiving both an scalar, the second one as a reference, then it must be assigned to an other var.
sub dosomething
{
($myopt,$myparams) = @_;
%myparams = $myparams;
print "opt = $myopt\n";
while( my ($k, $v) = each %myparams )
{ print "$k = $v \n"; }
}
--
To unsubscribe, e-mail: beginners-cgi-unsubscr...@perl.org
For additional commands, e-mail: beginners-cgi-h...@perl.org
http://learn.perl.org/
