| #!perl -w | |
| BEGIN { | |
| use Apache::TestUtil qw/t_server_log_warn_is_expected/; | |
| t_server_log_warn_is_expected(); | |
| } | |
| # this script will suffer from a closure problem under registry | |
| # should see it under ::Registry | |
| # should not see it under ::PerlRun | |
| print "Content-type: text/plain\n\n"; | |
| # this is a closure (when compiled inside handler()): | |
| my $counter = 0; | |
| counter(); | |
| sub counter { | |
| #warn "$$: counter=$counter"; | |
| print ++$counter; | |
| } | |