Author: pgollucci Date: Thu Aug 24 02:07:11 2006 New Revision: 434349 URL: http://svn.apache.org/viewvc?rev=434349&view=rev Log: Allow the globals to work (but the deprecated apis still break)
Modified: perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm Modified: perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm URL: http://svn.apache.org/viewvc/perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm?rev=434349&r1=434348&r2=434349&view=diff ============================================================================== --- perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm (original) +++ perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm Thu Aug 24 02:07:11 2006 @@ -18,41 +18,57 @@ use strict; use Config; +use Exporter; use vars qw( $VERSION $REQUEST_COUNT $USE_SMAPS + + $MAX_PROCESS_SIZE + $MAX_UNSHARED_SIZE + $MIN_SHARE_SIZE + $CHECK_EVERY_N_REQUESTS + $START_TIME + + @ISA + @EXPORT_OK ); [EMAIL PROTECTED] = qw(Exporter); + [EMAIL PROTECTED] = qw( + $MAX_PROCESS_SIZE + $MAX_UNSHARED_SIZE + $MIN_SHARE_SIZE + $CHECK_EVERY_N_REQUESTS + $START_TIME + ); + $VERSION = '0.91-dev'; $REQUEST_COUNT = 1; use constant IS_WIN32 => $Config{'osname'} eq 'MSWin32' ? 1 : 0; -use vars qw($MAX_PROCESS_SIZE); sub set_max_process_size { my $class = shift; $MAX_PROCESS_SIZE = shift; } -use vars qw($MAX_UNSHARED_SIZE); sub set_max_unshared_size { my $class = shift; $MAX_UNSHARED_SIZE = shift; } -use vars qw($MIN_SHARE_SIZE); sub set_min_shared_size { my $class = shift; $MIN_SHARE_SIZE = shift; } -use vars qw($CHECK_EVERY_N_REQUESTS); sub set_check_interval { my $class = shift; @@ -62,7 +78,6 @@ sub get_check_interval { return $CHECK_EVERY_N_REQUESTS; } -use vars qw($START_TIME); sub set_start_time { $START_TIME ||= time(); } sub get_start_time { return $START_TIME; } Modified: perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm URL: http://svn.apache.org/viewvc/perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm?rev=434349&r1=434348&r2=434349&view=diff ============================================================================== --- perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm (original) +++ perl/Apache-SizeLimit/trunk/lib/Apache/SizeLimit.pm Thu Aug 24 02:07:11 2006 @@ -26,7 +26,13 @@ $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 + ); use vars qw(@ISA); @ISA = qw(Apache::BaseSizeLimit);