#60 [Perl]Error doesn't appear when passing a not exist table to foreign_key_info method

[Jira Trac]

Test Build:CUBRID 2008 R4.0 (8.4.0.2019) (64bit release build for linux_gnu)
OS: Linux 64
Description: Error doesn't appear when passing a not exist table to foreign_key_info method

Repro Steps
perl perl foreign_6.pl

Statement in perl foreign_6.pl:
{noformat}
my $sth=$dbh-foreign_key_info('','','this_table_no_exist','','','') or die $dbh-errstr . :foreign_key error\n;
while(my @row =$sth-fetchrow_array()){
my $length=@row;

print PKTABLE_NAME: $row[2]\n;
print PKCOLUMN_NAME: $row[3]\n;
print FKTABLE_CAT: $row[4]\n;
print FKTABLE_NAME : $row[6]\n;
print FKCOLUMN_NAME: $row[7]\n;
print KEY_SEQ: $row[8]\n;
print UPDATE_RULE: $row[9]\n;
print FK_NAME: $row[11]\n;
print PK_NAME: $row[12]\n;
print DEFERRABILITY: $row[13]\n;
print UNIQUE_OR_PRIMARY : $row[14]\n\n\n\n;
}
{noformat}

Actual result:
{noformat}
on error;
{noformat}

Expect result:
{noformat}
error appear
{noformat}