On Thursday 18 October 2007, Philippe M. Chiasson wrote: > Any chance you can break the patch into multiple patches
This one is supposed to be applied after the pid-tid patch to the threading branch. It adds the last pnotes refcount fix. Torsten
Index: src/modules/perl/modperl_util.c
===================================================================
--- src/modules/perl/modperl_util.c (revision 2)
+++ src/modules/perl/modperl_util.c (working copy)
@@ -894,11 +894,9 @@
else if (hv_exists(*pnotes, k, len)) {
retval = *hv_fetch(*pnotes, k, len, FALSE);
}
- }
- else {
- retval = newRV_inc((SV *)*pnotes);
- }
- return retval ? SvREFCNT_inc(retval) : &PL_sv_undef;
+ return retval ? SvREFCNT_inc(retval) : &PL_sv_undef;
+ }
+ return newRV_inc((SV *)*pnotes);
}
Index: t/response/TestModperl/pnotes2.pm
===================================================================
--- t/response/TestModperl/pnotes2.pm (revision 0)
+++ t/response/TestModperl/pnotes2.pm (revision 0)
@@ -0,0 +1,89 @@
+package TestModperl::pnotes2;
+
+use strict;
+use warnings FATAL => 'all';
+
+use Apache2::Log ();
+use Apache2::RequestUtil ();
+use Apache2::ConnectionUtil ();
+
+use Apache2::Const -compile => 'OK';
+
+{
+ package TestModerl::pnotes2::x;
+ use strict;
+ use warnings FATAL => 'all';
+
+ sub new {shift;bless [EMAIL PROTECTED];}
+ sub DESTROY {my $f=shift @{$_[0]}; $f->(@{$_[0]});}
+}
+
+sub line {
+ our $cleanup;
+
+ Apache2::ServerRec::warn "pnotes are destroyed after cleanup ".$cleanup;
+}
+
+sub cleanup {
+ our $cleanup;
+ $cleanup='passed';
+
+ return Apache2::Const::OK;
+}
+
+sub handler {
+ my $r = shift;
+
+ our $cleanup;
+ $cleanup='';
+
+ $r->push_handlers( PerlCleanupHandler=>__PACKAGE__.'::cleanup' );
+
+ if(!defined $r->args) {
+ } elsif($r->args == 1) {
+ $r->pnotes(x1 => TestModerl::pnotes2::x->new(\&line));
+ } elsif($r->args == 2) {
+ $r->pnotes->{x1} = TestModerl::pnotes2::x->new(\&line);
+ } elsif($r->args == 3) {
+ $r->pnotes(x1 => TestModerl::pnotes2::x->new(\&line));
+ $r->pnotes(x2 => 2);
+ } elsif($r->args == 4) {
+ $r->pnotes->{x1} = TestModerl::pnotes2::x->new(\&line);
+ $r->pnotes->{x2} = 2;
+ } elsif($r->args == 5) {
+ $r->pnotes(x1 => TestModerl::pnotes2::x->new(\&line));
+ $r->pnotes->{x2} = 2;
+ } elsif($r->args == 6) {
+ $r->pnotes->{x1} = TestModerl::pnotes2::x->new(\&line);
+ $r->pnotes(x2 => 2);
+ } elsif($r->args == 7) {
+ $r->connection->pnotes(x1 => TestModerl::pnotes2::x->new(\&line));
+ } elsif($r->args == 8) {
+ $r->connection->pnotes->{x1} = TestModerl::pnotes2::x->new(\&line);
+ } elsif($r->args == 9) {
+ $r->connection->pnotes(x1 => TestModerl::pnotes2::x->new(\&line));
+ $r->connection->pnotes(x2 => 2);
+ } elsif($r->args == 10) {
+ $r->connection->pnotes->{x1} = TestModerl::pnotes2::x->new(\&line);
+ $r->connection->pnotes->{x2} = 2;
+ } elsif($r->args == 11) {
+ $r->connection->pnotes(x1 => TestModerl::pnotes2::x->new(\&line));
+ $r->connection->pnotes->{x2} = 2;
+ } elsif($r->args == 12) {
+ $r->connection->pnotes->{x1} = TestModerl::pnotes2::x->new(\&line);
+ $r->connection->pnotes(x2 => 2);
+ }
+
+ $r->content_type('text/plain');
+ $r->print("OK");
+
+ Apache2::Const::OK;
+}
+
+1;
+__END__
+
+# Local Variables: #
+# mode: cperl #
+# cperl-indent-level: 4 #
+# End: #
Index: t/modperl/pnotes2.t
===================================================================
--- t/modperl/pnotes2.t (revision 0)
+++ t/modperl/pnotes2.t (revision 0)
@@ -0,0 +1,32 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Apache::TestRequest qw(GET_BODY);
+use Apache::Test;
+use Apache::TestUtil;
+use Apache::TestUtil qw/t_start_error_log_watch t_finish_error_log_watch/;
+
+my $module = 'TestModperl::pnotes2';
+my $url = Apache::TestRequest::module2url($module);
+my ($u, $ok);
+
+t_debug("connecting to $url");
+
+plan tests => 12, need_lwp;
+
+Apache::TestRequest::user_agent(reset => 1, keep_alive => 0);
+
+for my $i (1..12) {
+ t_client_log_warn_is_expected();
+ t_start_error_log_watch;
+ $u="$url?$i"; $ok=GET_BODY $u;
+ select undef, undef, undef, 0.2; # give it time to write the logfile
+ ok t_cmp scalar(grep {
+ /pnotes are destroyed after cleanup passed/;
+ } t_finish_error_log_watch), 1, $u;
+}
+
+# Local Variables: #
+# mode: cperl #
+# cperl-indent-level: 4 #
+# End: #
signature.asc
Description: This is a digitally signed message part.
