Changed DBD::ExampleP to reflect the recent changes to DBI::DBD.
Steffen
Index: lib/DBD/ExampleP.pm =================================================================== --- lib/DBD/ExampleP.pm (revision 633) +++ lib/DBD/ExampleP.pm (working copy) @@ -58,13 +58,10 @@ sub connect { # normally overridden, but a handy default my($drh, $dbname, $user, $auth)= @_; - my($this) = DBI::_new_dbh($drh, { - 'Name' => $dbname, - 'User' => $user, - examplep_get_info => {}, - }); - $this->STORE(Active => 1); - $this; + my ($outer, $dbh) = DBI::_new_dbh($drh, { Name => $dbname }); + $dbh->STORE('Active', 1); + $dbh->{examplep_get_info} = {}; + return $outer; } sub data_sources { @@ -97,7 +94,7 @@ # No we have DBI::DBM etc ExampleP should be deprecated } - my ($outer, $inner) = DBI::_new_sth($dbh, { + my ($outer, $sth) = DBI::_new_sth($dbh, { 'Statement' => $statement, }, ['example implementors private data '.__PACKAGE__]); @@ -109,7 +106,7 @@ $outer->STORE('NUM_OF_FIELDS' => scalar(@fields)); - $inner->{'dbd_ex_dir'} = $dir if defined($dir) && $dir !~ /\?/; + $sth->{dbd_ex_dir} = $dir if defined($dir) && $dir !~ /\?/; $outer->STORE('NUM_OF_PARAMS' => ($dir) ? $dir =~ tr/?/?/ : 0); if (@fields) {