if (ref($self) eq 'DBIx::Class::Storage::DBI::Sybase') {
my $dbtype = eval {
- @{$self->dbh->selectrow_arrayref(qq{sp_server_info \@attribute_id=1})}[2]
+ @{$self->last_dbh->selectrow_arrayref(qq{sp_server_info \@attribute_id=1})}[2]
} || '';
my $exception = $@;
for my $col (keys %$blob_cols) {
my $blob = $blob_cols->{$col};
- my $sth;
my %where = map { ($_, $row{$_}) } @primary_cols;
my $cursor = $source->resultset->search(\%where, {
select => [$col]
})->cursor;
$cursor->next;
- $sth = $cursor->sth;
+ my $sth = $cursor->sth;
eval {
do {
1;
+=head1 Schema::Loader Support
+
+There is an experimental branch of L<DBIx::Class::Schema::Loader> that will
+allow you to dump a schema from most (if not all) versions of Sybase.
+
+It is available via subversion from:
+
+ http://dev.catalyst.perl.org/repos/bast/branches/DBIx-Class-Schema-Loader/mssql_tweaks
+
=head1 FreeTDS
This driver supports L<DBD::Sybase> compiled against FreeTDS