Hello,
The following code leaks 4k of RAM every 10-20 iterations. I can't see
anything wrong in my code but that does not mean I have not done
something wrong. :-)
Can anyone see a problem with the following code? I am running on a
Linux box with Perl 5.6.1, DBI version 1.21, and DBD:DB2 version 0.76.
The leak happens even if I comment out the 'execute' statement.
#!/usr/bin/perl -w
use strict;
use DBI;
use DBI qw(:sql_types);
my %parameterHash = ();
$parameterHash{RaiseError} = 1;
$parameterHash{AutoCommit} = 1;
$parameterHash{PrintError} = 1;
my $Handle = DBI->connect('dbi:DB2:DBPRC001', 'user', 'password',
\%parameterHash);
my $sql = 'select SECURITY_SYMBOL, TASK_STATUS_DETAIL from
DBPRC001.T4030TASK where TASK_ID = ?';
while (1) {
my $hSql = $Handle->prepare($sql);
$hSql->execute(12);
$hSql->finish();
sleep(1);
}
Shawn
--
This communication is intended to be received by the individual or
entity to whom or to which it is addressed and it contains information
that is privileged, confidential and subject to copyright of
Recognia Inc. Any unauthorized use, copying, review or
disclosure is prohibited. If received in error, please contact me by
phone at 613-623-6159 or by email at mailto:[EMAIL PROTECTED].
