perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From per...@apache.org
Subject svn commit: r110076 - /perl/modperl/trunk/lib/Apache/SizeLimit.pm
Date Tue, 07 Dec 2004 05:02:40 GMT
Author: perrin
Date: Mon Dec  6 21:02:40 2004
New Revision: 110076

URL: http://svn.apache.org/viewcvs?view=rev&rev=110076
Log:
handle passing $r instead of using GlobalRequest
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=110076&p1=perl/modperl/trunk/lib/Apache/SizeLimit.pm&r1=110075&p2=perl/modperl/trunk/lib/Apache/SizeLimit.pm&r2=110076
==============================================================================
--- perl/modperl/trunk/lib/Apache/SizeLimit.pm	(original)
+++ perl/modperl/trunk/lib/Apache/SizeLimit.pm	Mon Dec  6 21:02:40 2004
@@ -189,7 +189,7 @@
 # to exit if the CGI causes the process to grow too big.
 sub setmax {
     $MAX_PROCESS_SIZE = shift;
-    my $r = Apache->request();
+    my $r = shift || Apache->request();
     unless ($r->pnotes('size_limit_cleanup')) {
         $r->connection->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 = Apache->request();
+    my $r = shift || Apache->request();
     unless ($r->pnotes('size_limit_cleanup')) {
         $r->connection->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 = Apache->request();
+    my $r = shift || Apache->request();
     unless ($r->pnotes('size_limit_cleanup')) {
         $r->connection->pool->cleanup_register(\&exit_if_too_big, $r);
         $r->pnotes('size_limit_cleanup', 1);

Mime
View raw message