|
From: Chris W. <la...@us...> - 2001-11-09 14:19:00
|
Update of /cvsroot/openinteract/OpenInteract/OpenInteract
In directory usw-pr-cvs1:/tmp/cvs-serv2137
Modified Files:
ApacheStartup.pm
Log Message:
small doc/debugging updates
Index: ApacheStartup.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/ApacheStartup.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** ApacheStartup.pm 2001/11/09 13:08:54 1.18
--- ApacheStartup.pm 2001/11/09 14:18:58 1.19
***************
*** 87,92 ****
! my ( $OS );
! unless ( $OS = $^O ) {
require Config;
$OS = $Config::Config{ 'osname' };
--- 87,92 ----
! my $OS = $^O;
! unless ( $OS ) {
require Config;
$OS = $Config::Config{ 'osname' };
***************
*** 95,101 ****
if ( $OS =~ /Win32/i ) {
DEBUG && _w( 1, "SERVER INIT: Running initialization for Windows." );
! child_init();
}
else {
Apache->push_handlers( PerlChildInitHandler => \&child_init );
}
--- 95,102 ----
if ( $OS =~ /Win32/i ) {
DEBUG && _w( 1, "SERVER INIT: Running initialization for Windows." );
! child_init();
}
else {
+ DEBUG && _w( 1, "SERVER INIT: Adding ChildInitHandler for initialization" );
Apache->push_handlers( PerlChildInitHandler => \&child_init );
}
|