| #!perl -w |
| # please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*- |
| |
| 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; |
| } |
| |