Author: perrin Date: Mon Dec 6 21:12:08 2004 New Revision: 110079 URL: http://svn.apache.org/viewcvs?view=rev&rev=110079 Log: change cleanup to run on request pool, and remove Apache::Connection Modified: perl/modperl/trunk/lib/Apache/SizeLimit.pm
Modified: perl/modperl/trunk/lib/Apache/SizeLimit.pm Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache/SizeLimit.pm?view=diff&rev=110079&p1=perl/modperl/trunk/lib/Apache/SizeLimit.pm&r1=110078&p2=perl/modperl/trunk/lib/Apache/SizeLimit.pm&r2=110079 ============================================================================== --- perl/modperl/trunk/lib/Apache/SizeLimit.pm (original) +++ perl/modperl/trunk/lib/Apache/SizeLimit.pm Mon Dec 6 21:12:08 2004 @@ -21,7 +21,6 @@ use Apache::RequestRec (); use Apache::RequestUtil (); -use Apache::Connection (); use Apache::MPM (); use APR::Pool (); use ModPerl::Util (); @@ -191,7 +190,7 @@ $MAX_PROCESS_SIZE = shift; my $r = shift || Apache->request(); unless ($r->pnotes('size_limit_cleanup')) { - $r->connection->pool->cleanup_register(\&exit_if_too_big, $r); + $r->pool->cleanup_register(\&exit_if_too_big, $r); $r->pnotes('size_limit_cleanup', 1); } } @@ -200,7 +199,7 @@ $MIN_SHARE_SIZE = shift; my $r = shift || Apache->request(); unless ($r->pnotes('size_limit_cleanup')) { - $r->connection->pool->cleanup_register(\&exit_if_too_big, $r); + $r->pool->cleanup_register(\&exit_if_too_big, $r); $r->pnotes('size_limit_cleanup', 1); } } @@ -209,7 +208,7 @@ $MAX_UNSHARED_SIZE = shift; my $r = shift || Apache->request(); unless ($r->pnotes('size_limit_cleanup')) { - $r->connection->pool->cleanup_register(\&exit_if_too_big, $r); + $r->pool->cleanup_register(\&exit_if_too_big, $r); $r->pnotes('size_limit_cleanup', 1); } } @@ -225,7 +224,7 @@ if (ModPerl::Util::current_callback() eq 'PerlCleanupHandler') { exit_if_too_big($r); } else { - $r->connection->pool->cleanup_register(\&exit_if_too_big); + $r->pool->cleanup_register(\&exit_if_too_big, $r); } }
