Author: randyk
Date: Mon Apr 18 06:53:33 2005
New Revision: 161757
URL: http://svn.apache.org/viewcvs?view=rev&rev=161757
Log:
use Apache2::RequestUtil->request
Modified:
perl/modperl/trunk/lib/Apache2/SizeLimit.pm (contents, props changed)
Modified: perl/modperl/trunk/lib/Apache2/SizeLimit.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache2/SizeLimit.pm?view=diff&r1=161756&r2=161757
==============================================================================
--- perl/modperl/trunk/lib/Apache2/SizeLimit.pm (original)
+++ perl/modperl/trunk/lib/Apache2/SizeLimit.pm Mon Apr 18 06:53:33 2005
@@ -189,7 +189,7 @@
# to exit if the CGI causes the process to grow too big.
sub setmax {
$MAX_PROCESS_SIZE = shift;
- my $r = shift || Apache2->request();
+ my $r = shift || Apache2::RequestUtil->request();
unless ($r->pnotes('size_limit_cleanup')) {
$r->pool->cleanup_register(\&exit_if_too_big, $r);
$r->pnotes('size_limit_cleanup', 1);
@@ -198,7 +198,7 @@
sub setmin {
$MIN_SHARE_SIZE = shift;
- my $r = shift || Apache2->request();
+ my $r = shift || Apache2::RequestUtil->request();
unless ($r->pnotes('size_limit_cleanup')) {
$r->pool->cleanup_register(\&exit_if_too_big, $r);
$r->pnotes('size_limit_cleanup', 1);
@@ -207,7 +207,7 @@
sub setmax_unshared {
$MAX_UNSHARED_SIZE = shift;
- my $r = shift || Apache2->request();
+ my $r = shift || Apache2::RequestUtil->request();
unless ($r->pnotes('size_limit_cleanup')) {
$r->pool->cleanup_register(\&exit_if_too_big, $r);
$r->pnotes('size_limit_cleanup', 1);
Propchange: perl/modperl/trunk/lib/Apache2/SizeLimit.pm
------------------------------------------------------------------------------
svn:eol-style = native
