1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!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;
}
|
