Memory Leak in DBI 1.54 and DBD::ODBC?

Below is a sample script I run that causes a memory leak on
Windows 2003
SP1 Servers.  I lose around 4k of memory every minute this
script runs,
I apologize for not being able to give a more accurate
number.  Any
ideas?

We were using DBI 1.49, and read that some memory leaks were
fixe in
1.52, so we upgraded to the current versions of DBD::ODBC
and DBI as
found on Acitvestate repositories yesterday.


#!/usr/bin/perl -w

use DBI;
use DBD::ODBC;
my $delay   = 0;

Poll($delay);

sub Poll{
  my ($delay) = _;
  my $dbh  =  DBI->connect("DBI:ODBCSN"
, 'USER', 'PASSWD') or die
"Cannot connect to Data Server: $DBI::errstrn";
  $dbh->disconnect();
  undef $dbh;

  while(1) {
     my $dbh  =  DBI->connect("DBI:ODBCSN"
, 'USER', 'PASSWD') or warn
"Cannot connect to Data Server: $DBI::errstrn";
     if ($dbh) {
        $dbh->disconnect();
     }
     Win32::Sleep($delay);  #apply wait time until next
transaction
attempt.
     undef $dbh;

  }
}
_______________________________________________
Perl-Win32-Database mailing list
Perl-Win32-Databaselistserv.ActiveState.com
To unsubscribe: http:/
/listserv.ActiveState.com/mailman/mysubs

 
> 
> Below is a sample script I run that causes a memory
leak on 
> Windows 2003
> SP1 Servers.  I lose around 4k of memory every minute
this 
> script runs, I apologize for not being able to give a
more 
> accurate number.  Any ideas?

To be more specific, this memory leak occurs on a 2003 SBS
with SP1
installed.  They are in the process of upgrading to SP2,
scheduled for
this weekend.  The error doesn't occur if I use any of the
MDAC ODBC
drivers (MSSQL or ACCESS), the driver is proprietary to the
dataserver
in use, and has not changes since 2001.  It's code base is
remarkably
similar to Oracle's ODBC driver, as the data server
providers offers a
flavor of their accounting application that ties directly
into Oracle
for a backend.


> 
> We were using DBI 1.49, and read that some memory leaks
were 
> fixe in 1.52, so we upgraded to the current versions of

> DBD::ODBC and DBI as found on Acitvestate repositories
yesterday.
> 
> 
> #!/usr/bin/perl -w
> 
> use DBI;
> use DBD::ODBC;
> my $delay   = 0;
> 
> Poll($delay);
> 
> sub Poll{
>   my ($delay) = _;
>   my $dbh  =  DBI->connect("DBI:ODBCSN"
, 'USER', 'PASSWD') 
> or die "Cannot connect to Data Server:
$DBI::errstrn";
>   $dbh->disconnect();
>   undef $dbh;
> 
>   while(1) {
>      my $dbh  =  DBI->connect("DBI:ODBCSN"
, 'USER', 
> 'PASSWD') or warn "Cannot connect to Data Server:
$DBI::errstrn";
>      if ($dbh) {
>         $dbh->disconnect();
>      }
>      Win32::Sleep($delay);  #apply wait time until next

> transaction attempt.
>      undef $dbh;
> 
>   }
> }
> _______________________________________________
> Perl-Win32-Database mailing list
> Perl-Win32-Databaselistserv.ActiveState.com
> To unsubscribe: http:/
/listserv.ActiveState.com/mailman/mysubs
> 
_______________________________________________
Perl-Win32-Database mailing list
Perl-Win32-Databaselistserv.ActiveState.com
To unsubscribe: http:/
/listserv.ActiveState.com/mailman/mysubs