[Bast-commits] r6917 - in
DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI:
Oracle Sybase
caelum at dev.catalyst.perl.org
caelum at dev.catalyst.perl.org
Wed Jul 1 14:03:23 GMT 2009
Author: caelum
Date: 2009-07-01 14:03:22 +0000 (Wed, 01 Jul 2009)
New Revision: 6917
Modified:
DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Sybase/Base.pm
Log:
use ->do instead of ->prepare_cached in oracle's connected() too
Modified: DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
===================================================================
--- DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm 2009-07-01 13:55:21 UTC (rev 6916)
+++ DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm 2009-07-01 14:03:22 UTC (rev 6917)
@@ -99,16 +99,13 @@
if (not $self->next::method(@_)) {
return 0;
- }
- else {
+ } else {
my $dbh = $self->_dbh;
local $dbh->{RaiseError} = 1;
eval {
- my $ping_sth = $dbh->prepare_cached("select 1 from dual");
- $ping_sth->execute;
- $ping_sth->finish;
+ $dbh->do("select 1 from dual");
};
return $@ ? 0 : 1;
Modified: DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Sybase/Base.pm
===================================================================
--- DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Sybase/Base.pm 2009-07-01 13:55:21 UTC (rev 6916)
+++ DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Sybase/Base.pm 2009-07-01 14:03:22 UTC (rev 6917)
@@ -6,7 +6,7 @@
=head1 NAME
DBIx::Class::Storage::DBI::Sybase::Base - Common functionality for drivers using
-L<DBD::Sybase>
+DBD::Sybase
=head1 METHODS
More information about the Bast-commits
mailing list