/;
use mro 'c3';
+sub new {
+ my $self = shift->next::method(@_);
+ $self->_rebless;
+ return $self;
+}
+
sub _rebless {
my $self = shift;
my $dbh = $self->_get_dbh;
# LongReadLen doesn't work with MSSQL through DBD::Sybase, and the default is
# huge on some versions of SQL server and can cause memory problems, so we
-# fix it up here.
- my $text_size = eval { $self->_dbi_connect_info->[-1]->{LongReadLen} } ||
- 32768; # the DBD::Sybase default
-
- $dbh->do("set textsize $text_size");
+# fix it up here (see Sybase/Common.pm .)
+ $self->set_textsize;
}
1;