local $dbh->{RaiseError} = 1;
local $dbh->{PrintError} = 0;
- local $@;
if ($dbh->{syb_no_child_con}) {
# ping is impossible with an active statement, we return false if so
sub using_freetds {
my $self = shift;
- return $self->_dbh->{syb_oc_version} =~ /freetds/i;
+ return $self->_get_dbh->{syb_oc_version} =~ /freetds/i;
}
=head2 set_textsize