perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r434349 - in /perl/Apache-SizeLimit/trunk/lib/Apache: BaseSizeLimit.pm SizeLimit.pm
Date Thu, 24 Aug 2006 09:07:11 GMT
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
 );
 
+@ISA = qw(Exporter);
+
+@EXPORT_OK = 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);
 



Mime
View raw message