X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FSybase.pm;h=385ac30eb2118e10016089db534097a45cea915c;hb=70f524e6b39efe4fb16e2fd75132c118f050df25;hp=b47127516ff0a8450d48662737a75576ef911108;hpb=aa56ff9a9024085a54833d427505e0f57937731d;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/Storage/DBI/Sybase.pm b/lib/DBIx/Class/Storage/DBI/Sybase.pm index b471275..385ac30 100644 --- a/lib/DBIx/Class/Storage/DBI/Sybase.pm +++ b/lib/DBIx/Class/Storage/DBI/Sybase.pm @@ -23,19 +23,29 @@ sub _rebless { if (!$exception && $dbtype && $self->load_optional_class($subclass)) { bless $self, $subclass; $self->_rebless; - } elsif (not $self->dbh->{syb_dynamic_supported}) { - bless $self, 'DBIx::Class::Storage:DBI::Sybase::NoBindVars'; - $self->_rebless; + } else { + # real Sybase + if (not $self->dbh->{syb_dynamic_supported}) { + bless $self, 'DBIx::Class::Storage:DBI::Sybase::NoBindVars'; + $self->_rebless; + } + $self->_init_date_fmt; } } } +sub _populate_dbh { + my $self = shift; + $self->next::method(@_); + $self->_init_date_fmt; + 1; +} + { my $old_dbd_warned = 0; - sub _populate_dbh { + sub _init_date_fmt { my $self = shift; - $self->next::method(@_); my $dbh = $self->_dbh; if ($dbh->can('syb_date_fmt')) {