As part of trying to figure out why my t/TEST -d takes so long to start,
I've traced that it spends about 14 secs in modperl_extra.pl. Can you
reproduce the same?
here is the modified t/conf/modper_startup.pl (I know it's autogenerated)
BEGIN {
my $file = "/tmp/out";
open my $fh, ">>$file" or die $!;
select $fh;
use lib '/home/stas/apache.org/mp-subproc/t';
for my $file (qw(modperl_inc.pl modperl_extra.pl)) {
print "start: ".scalar(localtime)."\n";
print "require $file\n";
eval { require "conf/$file" } or
die if grep { -e "$_/conf/$file" } @INC;
print "end: ".scalar(localtime)."\n";
}
close $fh;
}
1;
I get:
start: Wed Nov 21 23:53:00 2001
require modperl_inc.pl
end: Wed Nov 21 23:53:00 2001
start: Wed Nov 21 23:53:00 2001
require modperl_extra.pl
end: Wed Nov 21 23:53:13 2001
start: Wed Nov 21 23:53:13 2001
require modperl_inc.pl
end: Wed Nov 21 23:53:13 2001
start: Wed Nov 21 23:53:13 2001
require modperl_extra.pl
end: Wed Nov 21 23:53:14 2001
Also this shows that BEGIN block of startup.pl is running twice. I don't
think this is right. (BTW, people are still reporting this problem with
mod_perl 1.26!)
_____________________________________________________________________
Stas Bekman JAm_pH -- Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide http://perl.apache.org/guide
mailto:stas@stason.org http://ticketmaster.com http://apacheweek.com
http://singlesheaven.com http://perl.apache.org http://perlmonth.com/
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
|