Skip Menu |

This queue is for tickets about the DBD-XBase CPAN distribution.

Report information
The Basics
Id: 70484
Status: new
Priority: 0/
Queue: DBD-XBase

Owner: Nobody in particular
Requestors: serg_56 [...]

Bug Information
Severity: (no value)
Broken in: 1.02
Fixed in: (no value)

Subject: Memory Leak in module XBase
MIME-Version: 1.0
Content-Type: text/plain; charset="UTF-8"
X-Mailer: MIME-tools 5.427 (Entity 5.427)
Content-Disposition: inline
Content-Transfer-Encoding: binary
X-RT-Original-Encoding: utf-8
Content-Length: 826
Download (untitled) / with headers
text/plain 826b
#Example code use strict; use XBase; my ($pass,$obj); while(1){ $obj=XBase->new("abc.dbf") or die XBase->errstr; $obj->close(); sleep 1; print ++$pass." Ok!\n"; } exit; XBase version 1.02 ActivePerl This is perl 5, version 14, subversion 1 (v5.14.1) built for MSWin32- x86-multi-thread Similar result for other versions ActivePerl - 5.8.9, 5.12.4 OS - WindowsXP SP3 Professional Possibly problem that object XBase contains references to arrays and hashes. I offer the changed method close for class XBase # Close the file (and memo) sub close { my $self = shift; if (defined $self->{'memo'}) { $self->{'memo'}->close(); delete $self->{'memo'}; } $self->SUPER::close(); #The next line is added in an existing method for removal of references from object for(keys %$self){ delete $self->{$_}; } }

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to