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:
@@ -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 {
|
||||
|
||||
Reference in New Issue
Block a user