1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
package TestDirective::perlloadmodule7;
# this test was written to reproduce a segfault under worker
# due to a bug in custom directive implementation, where
# the code called from modperl_module_config_merge() was setting the
# global context after selecting the new interpreter which was leading
# to a segfault in any handler called thereafter, whose context was
# different beforehand.
use strict;
use warnings FATAL => 'all';
use Apache2::Module ();
use Apache2::Const -compile => qw(OK);
use constant KEY1 => "MyTest7_1";
use constant KEY2 => "MyTest7_2";
my @directives = ({ name => +KEY1 }, { name => +KEY2 });
Apache2::Module::add(__PACKAGE__, \@directives);
sub MyTest7_1 {
my ($self, $parms, $arg) = @_;
$self->{+KEY1} = $arg;
}
sub MyTest7_2 {
my ($self, $parms, $arg) = @_;
$self->{+KEY2} = $arg;
}
### response handler ###
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache::Test;
use Apache::TestUtil;
use Apache2::Const -compile => qw(OK);
sub handler {
my ($r) = @_;
plan $r, tests => 1;
ok 1;
return Apache2::Const::OK;
}
1;
__END__
<NoAutoConfig>
# APACHE_TEST_CONFIG_ORDER 950
PerlLoadModule TestDirective::perlloadmodule7
MyTest7_1 test
<Location /TestDirective__perlloadmodule7>
MyTest7_2 test
SetHandler modperl
PerlResponseHandler TestDirective::perlloadmodule7
</Location>
</NoAutoConfig>
|
