#47 [Perl]Return values of COLUMN_SIZE and DECIMAL_DIGITS 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: Return values of COLUMN_SIZE and DECIMAL_DIGITS are not correct

Repro Steps
perl column_02.pl

statements in column_02.pl:
$dbh - do(create table tb (dt date, tm time, dtt datetime, dc decimal(15,3),vc varchar(15));)
my $sth=$dbh-column_info(undef,undef,'tb','%')

while(my $hash_ref=$sth-fetchrow_hashref()){
print COLUMN_NAME: $hash_ref-{COLUMN_NAME}\n;
print COLUMN_SIZE: $hash_ref-{COLUMN_SIZE}\n;
print SQL_DATA_TYPE: $hash_ref-{SQL_DATA_TYPE}\n;
print DECIMAL_DIGITS: $hash_ref-{DECIMAL_DIGITS}\n;
print \n\n;

}

Actual result:
{noformat}
COLUMN_NAME: vc
COLUMN_SIZE:
SQL_DATA_TYPE: STRING(15)
DECIMAL_DIGITS:

COLUMN_NAME: dc
COLUMN_SIZE:
SQL_DATA_TYPE: NUMERIC(15,3)
DECIMAL_DIGITS:

COLUMN_NAME: dt
COLUMN_SIZE:
SQL_DATA_TYPE: DATE
DECIMAL_DIGITS:

COLUMN_NAME: dtt
COLUMN_SIZE:
SQL_DATA_TYPE: DATETIME
DECIMAL_DIGITS:

COLUMN_NAME: tm
COLUMN_SIZE:
SQL_DATA_TYPE: TIME
DECIMAL_DIGITS:
{noformat}

Expect result:
{noformat}
COLUMN_NAME: vc
COLUMN_SIZE: 15
SQL_DATA_TYPE: 12
DECIMAL_DIGITS:

COLUMN_NAME: dc
COLUMN_SIZE: 15
SQL_DATA_TYPE: 3
DECIMAL_DIGITS: 3

COLUMN_NAME: dt
COLUMN_SIZE: 10
SQL_DATA_TYPE: 91
DECIMAL_DIGITS: 0

COLUMN_NAME: dtt
COLUMN_SIZE: 19
SQL_DATA_TYPE: 9
DECIMAL_DIGITS: 0

COLUMN_NAME: tm
COLUMN_SIZE: 8
SQL_DATA_TYPE: 92
DECIMAL_DIGITS: 0
{noformat}