Arnaud Blancher wrote:
i would like all my variable aren't share
and especially the $user object
You are creating a closure. Easy to fix:
use My_module;
my $user = My_module->new(ip=>$ENV{'REMOTE_ADDR'},pid=>$$);
&taff2();
Make that:
taff2($user);
sub taff2 {
add this to the beginning of taff2:
my $user = shift;
- Perrin
--
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