Environment WinNt, Perl v5.6.1
code
while (1) {
$dbh = DBI->connect($orcs, $uname, $passw,
{
RaiseError => 0,
PrintError => 0,
AutoCommit => 0
}) or dberr("C");
$conn_count++;
sleep 2;
$dbh->disconnect;
undef $dbh;
sleep 8;
last if $conn_count > 10; # 100 sec total
}
No mem leak, moderate usage. What are you using this script for? (just
curious, private email ok)
HTH
David
"Bixia Zhou" <[EMAIL PROTECTED]> wrote in message
[EMAIL PROTECTED]">news:[EMAIL PROTECTED]...
> We are currently using: perl, v5.8.0 built for MSWin32-x86-multi-thread
> The test code as following:
> my $process = 1;
> while ($process){
> my $dbh = DBI->connect('dbi:Oracle:sid', $user, $pass, { AutoCommit => 0
> });
> if ($dbh =~ /ERR/)
> {
> exit;
> }
> $dbh->disconnect;
> undef $dbh;
> sleep(10);
> }
> The memory usage starts at 9mb and keeps up. Anybody notices this before?
> and has a solution?
> Thanks
>
