#48 [Perl]Precision's return values about int, float and numeric are not correct

[Jira Trac]

Test Build:CUBRID 2008 R4.0 (8.4.0.2019) (64bit release build for linux_gnu)
OS: Linux 64
Description: Precision's return values about int, float and numeric are not correct

Repro Steps:
perl precision_01.pl

statements in precision_01.pl:
$dbh - do(create table tb (id int, bgi bigint, name varchar(1),dc numeric(5,4),ft float(5) );)
my $sth=$dbh-prepare(select * from tb) or die prepare error: $dbh-errstr;
$sth-execute() or die execute error: $dbh-errstr;

my $fieldNumber=$sth-{NUM_OF_FIELDS};
print Number of field is $fieldNumber\n;

for (my $i=0;$i$fieldNumber; $i++){
print name: $sth-{NAME}-[$i]\n;
print type: $sth-{TYPE}-[$i]\n;
print precision: $sth-{PRECISION}-[$i]\n\n\n;
}

Actual result:
{noformat}
name: id
type: 8
precision: 0

name: bgi
type: 21
precision: 0

name: name
type: 2
precision: 1

name: dc
type: 7
precision: 5

name: ft
type: 11
precision: 0
{noformat}

Expect result:
{noformat}
name: id
type: 8
precision: 11

name: bgi
type: 21
precision: 20

name: name
type: 2
precision: 1

name: dc
type: 7
precision: 7

name: ft
type: 11
precision: 12
{noformat}