=cut
-sub can_insert_returning { 1 }
+sub _supports_insert_returning { 1 }
sub _sequence_fetch {
my ($self, $nextval, $sequence) = @_;
}
}
+sub _get_server_version {
+ my $self = shift;
+
+ return $self->next::method(@_) if ref $self ne __PACKAGE__;
+
+ local $SIG{__WARN__} = sub {}; # silence warning due to bug in DBD::InterBase
+
+ return $self->next::method(@_);
+}
+
=head2 connect_call_use_softcommit
Used as: