I am using RH 6.2, mod-perl 1.24, apache 1.3.12 with the following
program with Apache/registry:
#!/usr/bin/perl -w
use strict;
my $p = new xyz;
for(my $i=0; $i < 10; ++$i) {
for(my $j=1;$j<100;++$j) {
my $file = "../xml/$j.xml";
my $t = $p -> loadxml($file);
}
}
print "Content-type: text/html\n\nallo\n";
package xyz;
use XML::Parser;
sub new { bless {}; }
sub loadxml {
my($self, $file)=@_;
my $p = new XML::Parser(Style => 'Tree');
my $t = $p -> parsefile($file);
return $t;
}
After a few run, I got a segmentation fault with apache.
Any idea?
thanks.
--
Pierre Laplante
SedNove Inc.