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_spec):$dsn,
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 normalize the dsn
On Sun, Jun 19, 2005 at 06:16:25AM -0700, Peter Scott wrote:
On Sat, 18 Jun 2005 15:34:36 +0100, Tim Bunce wrote:
On Fri, Jun 17, 2005 at 05:49:01PM -0700, Peter Scott wrote:
The connected() method of subclasses doesn't get all the attribute
that were set by the caller; three of them are
On Tue, 21 Jun 2005 01:13:21 +0100, Tim Bunce wrote:
On Sun, Jun 19, 2005 at 06:16:25AM -0700, Peter Scott wrote:
On Sat, 18 Jun 2005 15:34:36 +0100, Tim Bunce wrote:
On Fri, Jun 17, 2005 at 05:49:01PM -0700, Peter Scott wrote:
The connected() method of subclasses doesn't get all the
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_spec):$dsn,
@orig_args[1..3])
+if ref $dbh ne
On Sat, 18 Jun 2005 15:34:36 +0100, Tim Bunce wrote:
On Fri, Jun 17, 2005 at 05:49:01PM -0700, Peter Scott wrote:
The connected() method of subclasses doesn't get all the attribute
that were set by the caller; three of them are deleted first:
[snip]
I'd rather like to get those attributes in
On Fri, Jun 17, 2005 at 05:49:01PM -0700, Peter Scott wrote:
The connected() method of subclasses doesn't get all the attribute
that were set by the caller; three of them are deleted first:
DBI.pm:
643 foreach $a (qw(RaiseError PrintError AutoCommit)) { # do
the
se first
The connected() method of subclasses doesn't get all the attribute
that were set by the caller; three of them are deleted first:
DBI.pm:
643 foreach $a (qw(RaiseError PrintError AutoCommit)) { # do the
se first
644 next unless exists $attr-{$a};
645