memory leak in loop

[Mike Solomon]

Using the following code I get a memory leak

I am using ActiveState Perl 5.8.0 on Windows

I suspect it is caused by Xbase

Any ideas to fix it would be much appreciated

use strict;
use XBase;


for (0 .. 100000000) { Process($_); sleep 3;}

exit;

sub Process {
my ($counter) = @_;

my $error;
my $dbf;
unless ($dbf = new XBase "survey.dbf") {
$error = XBase->errstr;
print $error;
}

#get last record from audit
my $last = $dbf->last_record;
$dbf->close;
print "LAST RECORD FROM dbf $last $counter\n";
return;
}
__END__

 

[Sisyphus]

Using the following code I get a memory leak

I am using ActiveState Perl 5.8.0 on Windows

I suspect it is caused by Xbase

Any ideas to fix it would be much appreciated

use strict;
use XBase;

That module has not been updated on cpan in over 9 years. Maybe try using
DBD::Xbase instead. (It's available as a ppm from ActiveState.)

Cheers,
Rob

 

[Mike Solomon]

That module has not been updated on cpan in over 9 years. Maybe try using
DBD::Xbase instead. (It's available as a ppm from ActiveState.)

Cheers,
Rob

Same problem with DBD:Xbase I'm afraid

 

[Sisyphus]

"Sisyphus" <[email protected]> wrote in message


Same problem with DBD:Xbase I'm afraid

Bummer ..... I guess the problem arises because you call new() at each
iteration. Do you need to do that ? Does it make any difference if you
'undef($dbh);' at the end of the loop (just after '$dbh->close;') ? Other
than that, if there's no help forthcoming, I would try contacting the
author - in fact it would be a good idea to let him know of the problem,
anyway.

Cheers,
Rob

 

[Mike Solomon]

Bummer ..... I guess the problem arises because you call new() at each
iteration. Do you need to do that ? Does it make any difference if you
'undef($dbh);' at the end of the loop (just after '$dbh->close;') ? Other
than that, if there's no help forthcoming, I would try contacting the
author - in fact it would be a good idea to let him know of the problem,
anyway.

Cheers,
Rob

If I don't call new it doesnt reread the file

undef makes no difference I'm afraid