Bug 191085 - Fix FetchSQLData compat code.

r,a=justdave


git-svn-id: svn://10.0.0.236/trunk@137274 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
bbaetz%acm.org
2003-02-02 05:49:23 +00:00
parent a53b99f2e7
commit edcb5a6006

View File

@@ -100,11 +100,10 @@ sub FetchSQLData {
# This is really really ugly, but its what we get for not doing
# error checking for 5 years. See bug 189446.
my @ret;
eval {
@ret = $_current_sth->fetchrow_array;
};
return @ret;
{
local $_current_sth->{RaiseError};
return $_current_sth->fetchrow_array;
}
}
sub FetchOneColumn {