[svn:modperl-modules] rev 219 - in Apache-VMonitor-2.0/trunk: . lib/Apache
[email protected] 26 May 2005 14:42:17 -0000
| Newsgroups | perl.modperl.modules.svn |
|---|---|
| Message-ID | <[email protected]> |
Author: MJH
Date: Thu May 26 07:42:17 2005
New Revision: 219
Modified:
Apache-VMonitor-2.0/trunk/Changes
Apache-VMonitor-2.0/trunk/lib/Apache/VMonitor.pm
Log:
Update to match API changes in MP2 RC5 and above
Modified: Apache-VMonitor-2.0/trunk/Changes
==============================================================================
--- Apache-VMonitor-2.0/trunk/Changes (original)
+++ Apache-VMonitor-2.0/trunk/Changes Thu May 26 07:42:17 2005
@@ -4,6 +4,8 @@
=item 2.04 - dev
+Update to match the API changes in MP2 RC5 and above
+
=item 2.03 - Fri Mar 18 15:26:11 EST 2005
@@ -47,4 +49,4 @@ be subclassable and support mod_perl 1st
=back
-=cut
\ No newline at end of file
+=cut
Modified: Apache-VMonitor-2.0/trunk/lib/Apache/VMonitor.pm
==============================================================================
--- Apache-VMonitor-2.0/trunk/lib/Apache/VMonitor.pm (original)
+++ Apache-VMonitor-2.0/trunk/lib/Apache/VMonitor.pm Thu May 26 07:42:17 2005
@@ -15,12 +15,12 @@ BEGIN {
die "mod_perl is required to run this module: $@" if $@;
if (MP2) {
- require Apache::ServerUtil;
- require Apache::RequestRec;
- require Apache::RequestIO;
+ require Apache2::ServerUtil;
+ require Apache2::RequestRec;
+ require Apache2::RequestIO;
require APR::Table;
- require Apache::Const;
- Apache::Const->import('OK');
+ require Apache2::Const;
+ Apache2::Const->import('OK');
} else {
require Apache;
require Apache::Constants;
@@ -32,14 +32,14 @@ BEGIN {
# once 2.0 is released drop the Apache::MPM_IS_THREADED case
use constant APACHE_IS_THREADED => MP2 &&
- require Apache::MPM && Apache::MPM->is_threaded();
+ require Apache2::MPM && Apache2::MPM->is_threaded();
# Apache::Scoreboard for 1.3 scoreboard has the vhost accessor only
# starting from version 0.12
use constant HAS_VHOSTS => (MP2 || $Apache::Scoreboard::VERSION > 0.11);
use constant SERVER_LIMIT => MP2
- ? Apache::Const::SERVER_LIMIT
+ ? Apache::Scoreboard->image(APR::Pool->new)->server_limit
: Apache::Constants::HARD_SERVER_LIMIT;
#use constant THREAD_LIMIT => MP2
@@ -47,7 +47,7 @@ use constant SERVER_LIMIT => MP2
# : 0; # no threads in mp1
use constant SINGLE_PROCESS_MODE => MP2
- ? Apache::ServerUtil::exists_config_define('ONE_PROCESS')
+ ? Apache2::ServerUtil::exists_config_define('ONE_PROCESS')
: Apache->define('X');
my $gtop = GTop->new;