=cut
-sub can_insert_returning { 1 }
+sub _supports_insert_returning { 1 }
sub _sequence_fetch {
my ($self, $nextval, $sequence) = @_;
}
}
-sub _populate_server_info {
+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(@_);