svn commit: r428211 - /perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm

[pgollucci]

Author: pgollucci
Date: Wed Aug  2 18:21:01 2006
New Revision: 428211

URL: http://svn.apache.org/viewvc?rev=428211&view=rev
Log:
o add_cleanup_handler()
  pass $r to _exit_if_to_big() via shift
  
  this fixes
  Can't call method "child_terminate" on an undefined value

Submitted By: David Wheeler <[EMAIL PROTECTED]>
Reviewed By: pgollucci, geoff  


Modified:
    perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm

Modified: perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm
URL: 
http://svn.apache.org/viewvc/perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm?rev=428211&r1=428210&r2=428211&view=diff
==============================================================================
--- perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm (original)
+++ perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm Wed Aug  2 18:21:01 2006
@@ -94,7 +94,7 @@
     # PerlCleanupHandler phase. That means that there's no way to use
     # $r->get_handlers() to check the results of calling this method.
     $r->push_handlers( 'PerlCleanupHandler',
-                       sub { $class->_exit_if_too_big() } );
+                       sub { $class->_exit_if_too_big(shift) } );
     $r->pnotes( size_limit_cleanup => 1 );
 }