Re: connected() doesn't get all attributes

2005-06-22 Thread Peter Scott
On Tue, 21 Jun 2005 21:42:42 +0100, Tim Bunce wrote: > On Tue, Jun 21, 2005 at 06:46:03AM -0700, Peter Scott wrote: >> - $dbh->connected($dsn, $user, $pass, $attr) if ref $dbh ne 'DBI::db'; >> +# We'll normalize the dsn first >> + $dbh->connected("dbi:$driver($driver_attrib_spe

Re: connected() doesn't get all attributes

2005-06-22 Thread Tim Bunce
On Wed, Jun 22, 2005 at 03:00:31AM -0700, Peter Scott wrote: > On Tue, 21 Jun 2005 21:42:42 +0100, Tim Bunce wrote: > > > On Tue, Jun 21, 2005 at 06:46:03AM -0700, Peter Scott wrote: > >> - $dbh->connected($dsn, $user, $pass, $attr) if ref $dbh ne > >> 'DBI::db'; > >> +# We'll norma

[PATCH] ActiveHandles attribute

2005-06-22 Thread Sam Tregar
Here's my first pass at an ActiveHandles attribute. With this patch this code prints all live handles: foreach my $handle (@{$dbh->{ActiveHandles}}) { next unless defined $handle; print $handle, "\n"; } I'd like to take the next step and add a DBI->ActiveHandles call to do

Re: [PATCH] ActiveHandles attribute

2005-06-22 Thread Tim Bunce
On Wed, Jun 22, 2005 at 01:38:05PM -0400, Sam Tregar wrote: > Here's my first pass at an ActiveHandles attribute. Thanks Sam. > With this patch this code prints all live handles: > > foreach my $handle (@{$dbh->{ActiveHandles}}) { >next unless defined $handle; >print $handle,

Re: [PATCH] ActiveHandles attribute

2005-06-22 Thread Sam Tregar
On Wed, 22 Jun 2005, Tim Bunce wrote: > I'd rather go with ChildHandles as per the outline in my previous email. If you insist. I don't understand the use of "child" here. What is the "parent"? > Your patch uses a global $DBI::active_handles which will grow > without bound. It is bounded by t