| Subject: | Cloning a db handle leads to warning |
Hi
The code
use strict;
use DBI;
my $dbh = DBI->connect('DBI:Mock:', 'joe', 'pass');;
my $dbh2 = $dbh->clone;
gives the warning:
Use of uninitialized value $value in concatenation (.) or string at
/Library/Perl/5.10.0/DBD/Mock.pm line 529.
Use of uninitialized value $value in concatenation (.) or string at
/Library/Perl/5.10.0/DBD/Mock.pm line 529.
Setting DBIC_TRACE = 1 gives:
Storing DB attribute 'Profile' with 'undef'
Use of uninitialized value $value in concatenation (.) or string at
/Library/Perl/5.10.0/DBD/Mock.pm line 529.
... storing non-driver attribute (Profile) with value () that DBI handles
<- STORE('Profile', undef)= 1 at DBI.pm line 707
.....
Storing DB attribute 'Statement' with 'undef'
Use of uninitialized value $value in concatenation (.) or string at
/Library/Perl/5.10.0/DBD/Mock.pm line 529.
Environment:
Perl: 5.10.0
DBD::Mock: 1.39
OS: Mac OS X v 10.6.3
Thanks