Author: pgollucci Date: Thu Aug 24 03:03:59 2006 New Revision: 434366 URL: http://svn.apache.org/viewvc?rev=434366&view=rev Log: o add deprecated apis o include the global vars in our namespace o update the pod
Modified: perl/Apache-SizeLimit/trunk/lib/Apache2/SizeLimit.pm Modified: perl/Apache-SizeLimit/trunk/lib/Apache2/SizeLimit.pm URL: http://svn.apache.org/viewvc/perl/Apache-SizeLimit/trunk/lib/Apache2/SizeLimit.pm?rev=434366&r1=434365&r2=434366&view=diff ============================================================================== --- perl/Apache-SizeLimit/trunk/lib/Apache2/SizeLimit.pm (original) +++ perl/Apache-SizeLimit/trunk/lib/Apache2/SizeLimit.pm Thu Aug 24 03:03:59 2006 @@ -32,7 +32,13 @@ # 2.x requires 5.6.x+ so 'our' is okay our $VERSION = '0.91-dev'; -use Apache::BaseSizeLimit; +use Apache::BaseSizeLimit qw( + $MAX_PROCESS_SIZE + $MAX_UNSHARED_SIZE + $MIN_SHARE_SIZE + $CHECK_EVERY_N_REQUESTS + $START_TIME + ); our @ISA = qw(Apache::BaseSizeLimit); __PACKAGE__->set_check_interval(1); @@ -108,6 +114,37 @@ return Apache2::Const::OK; } +{ + # Deprecated APIs + + sub setmax { + + my $class = __PACKAGE__; + + $class->set_max_process_size(shift); + + $class->add_cleanup_handler(); + } + + sub setmin { + + my $class = __PACKAGE__; + + $class->set_min_shared_size(shift); + + $class->add_cleanup_handler(); + } + + sub setmax_unshared { + + my $class = __PACKAGE__; + + $class->set_max_unshared_size(shift); + + $class->add_cleanup_handler(); + } +} + 1; __END__ @@ -304,7 +341,7 @@ require Apache2::SizeLimit; package X; use strict; - use Apache::Constants qw(OK); + use Apache2::Const -compile => qw(OK); my $x = "a" x (1024*1024);