Segmentation Fault

[Pierre Laplante <la...@sednove.com>]

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.