| Subject: | DBD::ODBC/freeTDS bug large image param |
With intel 64 running Red Hat Enterprise Linux Server 6.1 using FreeTDS 0.82, unixODBC
2.3.0, perl 5.10 and DBD::ODBC 1.29.
Connecting to a Windows box with Microsoft SQL Server 2005 - 9.00.4035.00 (X64)
If I create this stored procedure in a database.
"create procedure testbug @data image as begin return end"
Then create a script "bug" with the following:
#!/usr/bin/perl
use DBI;
my $dbh=DBI->connect("dbi:ODBC:".$ENV{DB},$ENV{USER},$ENV{PASS},
{PrintError => 1, RaiseError=> 1}) ||
die "Failed DB connect: ".$dbh->errstr;
my $query = qq/{call testbug( ? )}/;
my $sth = $dbh->prepare($query);
my $name="";
while (true) {
$name.="a";
$sth->bind_param(1,$name, -4);
$sth->execute() || die $dbh->errstr;
print length($name)."\n";
}
The "bug" script will die when $name reaches 32768 chars with the message:
DBD::ODBC::st execute failed: Unable to fetch information about the error at ./bug line 17.
however if I replace the query so it includes a ";" at the end like:
my $query = qq/{call testbug( ? )};/;
The code will not die at 32768 chars and goes way beyond (never actually let the program
run long enough to determine if it ever does die at some other larger limit).