perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Stas Bekman <s...@stason.org>
Subject perlrequire/perlmodule are running twice and slow
Date Wed, 21 Nov 2001 16:56:51 GMT
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


Mime
View raw message