Jakub Narebski wrote:
> By the way, does the "static" variables works under mod_perl? i.e.
>
> {
> my $private_var = "something"
>
> sub some_sub {
> ...
> }
>
> sub other_sub {
> ...
> }
> }
Depends on what you expect. The variable will remain shared between
those subs over successive executions, but it will not be reinitialised
to "something" -- at least not visibly to the subs:
On the first invocation, $private_var is initialised and the two
subroutines are created. Internally, they refer to the _instance_ of
$private_var. The next time the script is run by mod_perl, $private_var
gets initialised again, but the subs are persistent and still refer to
the old instance. _Their_ copy of the variable will still be shared
between them, but it will not be reset to "something".
So it should work, but I would avoid such a construction if possible.
Apache::Registry wraps the whole script in another function, which
is called on each request, so your piece of code really looks somewhat
like this:
#!/usr/bin/perl
sub handler {
# do something
{
my $a = 'A';
sub sub_a { $a .= 'B' }
sub sub_b { print $a."\n" }
}
sub_a();
sub_b();
}
for(1..10) { handler() }
Regards,
Dennis
-
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html