I have a Perl 5.10 PerlSvc program compiled using PDK 7.1 executing in a
32-bit Windows environment that does not leak. The same program when
placed on two different x64 servers is exhibiting a memory leak
condition.
Are any of modules listed below known to have issues in an x64
environment?
package PerlSvc;
use Config::IniHash;
use File::Basename;
use File::Path;
use Getopt::Long;
use MIME::Lite;
use strict;
use Win32::ChangeNotify;
use Win32::OLE qw(in);
This is the core of the program:
$notify =
Win32::ChangeNotify->new($Config->{sms}->{packagepath},1,'FILE_NAME');
while (ContinueRun())
{
my $result = $notify->wait(3000);
$notify->reset;
if (defined $result) {
#do stuff
my $loc =
Win32::OLE->CreateObject("WbemScripting.SWbemLocator");
...
$objPkgs = $objSMS->ExecQuery("select * from SMS_Package
where PackageID = '" . $packageid . "'");
...
foreach my $objPkg (in $objPkgs) {
$PackageName = $objPkg->{name};
$objPkg->RefreshPkgSource;
}
}
}
How should I approach this issue?
Howard A. Bullock
Tyco Electronics
Computer Security
_______________________________________________
Perl-Win32-Users mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
