hi
( 03.11.26 10:45 -0800 ) Stas Bekman:
> Aha! Sorry for missing this point. Any luck with this patch?
> Index: t/docs/startup.pl
> ===================================================================
> RCS file: /home/cvs/modperl/t/docs/startup.pl,v
> retrieving revision 1.44
> diff -u -r1.44 startup.pl
> --- t/docs/startup.pl 23 May 2002 03:07:27 -0000 1.44
> +++ t/docs/startup.pl 26 Nov 2003 18:41:25 -0000
> @@ -142,7 +142,7 @@
> @MyClass::ISA = qw(BaseClass);
>
> #testing child init/exit hooks
> -
> +$INC{"My.pm"} = __FILE__;
> sub My::child_init {
> my $r = shift;
> eval {
no.
here's what comes on the screen after i've applied the patch:
cp t/conf/mod_perl_srm.conf t/conf/srm.conf
./apaci/load_modules.pl ../apache_1.3.29/src
../apache_1.3.29/src/httpd -f `pwd`/t/conf/httpd.conf -X -d `pwd`/t &
httpd listening on port 8529
will write error_log to: t/logs/error_log
letting apache warm up...\c
done
/usr/bin/perl t/TEST 0
still waiting for server to warm up...............not ok
server failed to start! (please examine t/logs/error_log) at t/TEST line 95.
make: *** [run_tests] Error 111
and this is what's in the error log:
[Wed Nov 26 15:41:19 2003] [error] Can't locate My/child_init.pm in @INC (@INC c
ontains: /usr/lib/perl5/5.8.0/i686-linux /usr/lib/perl5/5.8.0 /usr/lib/perl5/sit
e_perl/5.8.0/i686-linux /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl/
5.6.1 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.0/i686-linux /usr/
lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl . /usr/local/src/mod_perl
-1.29/t/ /usr/local/src/mod_perl-1.29/t/lib/perl) at (eval 5) line 3.
[Wed Nov 26 15:41:19 2003] [error] Undefined subroutine &My::child_init::handler
called at PerlChildInitHandler subroutine `My::child_init' line 1.
basically, no change.
if i modify t/conf/httpd.conf to include this line:
PerlRequire docs/startup.pl
just before this line:
PerlChildInitHandler My::child_init
i get different errors:
./apaci/load_modules.pl ../apache_1.3.29/src
../apache_1.3.29/src/httpd -f `pwd`/t/conf/httpd.conf -X -d `pwd`/t &
httpd listening on port 8529
will write error_log to: t/logs/error_log
letting apache warm up...\c
PerlSetEnv is broken
done
/usr/bin/perl t/TEST 0
still waiting for server to warm up...............not ok
server failed to start! (please examine t/logs/error_log) at t/TEST line 95.
make: *** [run_tests] Error 111
and this is what's in the error_log:
[notice] END block called for startup.pl
[notice] Destruction->DESTROY called for $global_object
PerlSetEnv is broken
[Wed Nov 26 15:42:40 2003] [warn] pid file
/usr/local/src/mod_perl-1.29/t/logs/httpd.pid overwritten -- Unclean shutdown of
previous Apache run?
[Wed Nov 26 15:42:41 2003] [warn] [notice] child_init for process 14682, report any
problems to [no address given]
[notice] child process 14682 terminating
[notice] push'd PerlChildExitHandler called, pid=14682
[notice] END block called for startup.pl
[notice] Destruction->DESTROY called for $global_object
however the httpd is still running:
14921 pts/0 S 0:00 ../apache_1.3.29/src/httpd -f
/usr/local/src/mod_perl-1.29/t/conf/httpd.conf -X -d /usr/local/src/mod_perl-1.29/t
any suggestions are welcome.
--
\js "don't panic"
--
Reporting bugs: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
