DBI->connect performance issue

[Andrew Park]

Hi,

Hoping somebody on this mailing list can help me.
We're running Perl 5.10.1 on AIX 7.1.

We're finding that simply creating a connection maxes out one of the CPU's
and consistently takes over 4s (but sometimes it manages to create the
connection in about .2s).
On our old AIX 5.1 server running Perl 5.6, we were getting connections in
a tiny fraction of a second.

We're using DBI 1.631 and DBD::DB2 1.85 connecting to DB2 10.5.


To isolate the problem we created a little script:

#!/usr/bin/perl -w

use strict;
use warnings;
use Time::HiRes qw(time);

use DBI;

sub getDatabaseHandle {
my $start = time();

 my $dbh =
  DBI->connect_cached( 'dbi:DB2:myDatabase', 'userid', 'password',
{PrintError => 0} )
        or die "Couldn't connect to database: " . DBI->errstr;

my $end = time();
printf("%.2f\n", $end - $start);

 return $dbh;
}

getDatabaseHandle();

1;


We've tried various things (like switching from 32-bit to 64-bit, using
ActivePerl instead of then vendor's Perl 5.10 implementation) and nothing
seems to improve it.

If any body can offer up any sort of suggestion, I'd be most grateful -
we're truly stumped.

Thanks,

Andrew