Fagyal Csongor wrote:
Oooops, sorry, I hit "Send" accidentally before... here it is again:
--------------------------------------
Hi List,
I have a rather huge ASP application (a portal engine). Recently, I have
seen some of the pages slowing down very much.
I have tracked down the problem to the following lines:
my $dump = Devel::Symdump->rnew;
my @classes = $dump->packages; # All loaded packages
my %list;
foreach my $class (@classes) {
if (isa($class, 'COPE::Block::Base')) {
$list{$class} = $class if ($class->isPage);
}
}
I have never heard of this before!
It seems to me that this might be somehow related to Apache::ASP::Session
doing a TIEHASH. If no other work around presents itself, you might
change your method of going through the packages, perhaps not
using Devel::Symdump, or even if you do, then to not do an isa()
all on each, but instead match each $class directly with an regexp first
for processing speed.
I wonder what could have caused this slow down recently? Did you
do any code change or perl upgrade or Apache::ASP upgrade that you
could peg this to?
Regards,
Josh
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
