[EMAIL PROTECTED] wrote:
> dougm 01/10/09 11:01:21
>
> Modified: t/conf modperl_extra.pl
> xs/Apache/ServerUtil Apache__ServerUtil.h
> xs/maps modperl_functions.map
> Log:
> add Apache->server method
>
> Revision Changes Path
> 1.9 +10 -0 modperl-2.0/t/conf/modperl_extra.pl
>
> Index: modperl_extra.pl
> ===================================================================
> RCS file: /home/cvs/modperl-2.0/t/conf/modperl_extra.pl,v
> retrieving revision 1.8
> retrieving revision 1.9
> diff -u -r1.8 -r1.9
> --- modperl_extra.pl 2001/09/28 17:15:08 1.8
> +++ modperl_extra.pl 2001/10/09 18:01:21 1.9
> @@ -3,6 +3,7 @@
> use Apache::RequestUtil ();
>
> use Apache::Server ();
> +use Apache::ServerUtil ();
> use Apache::Connection ();
> use Apache::Log ();
>
> @@ -22,6 +23,15 @@
>
> Apache::Log->info("$ap_mods Apache:: modules loaded");
> Apache::Server->log->info("$apr_mods APR:: modules loaded");
> +
> +{
> + my $server = Apache->server;
> + my $vhosts = 0;
> + for (my $s = $server->next; $s; $s = $s->next) {
> + $vhosts++;
> + }
> + $server->log->info("base server + $vhosts vhosts ready to run tests");
> +}
>
> sub ModPerl::Test::read_post {
> my $r = shift;
damn, the emails are coming with such a huge delay :( Since you already
exercise Apache->server here, should I remove the tests I've added just now?
_____________________________________________________________________
Stas Bekman JAm_pH -- Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide http://perl.apache.org/guide
mailto:[EMAIL PROTECTED] http://ticketmaster.com http://apacheweek.com
http://singlesheaven.com http://perl.apache.org http://perlmonth.com/
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
