#49 [Perl]Scale method only return zero value for all column

[Jira Trac]

Test Build:CUBRID 2008 R4.0 (8.4.0.2019) (64bit release build for linux_gnu)
OS: Linux 64
Description: Scale method only return zero value for all column

Repro Steps:
perl scale_02.pl

statements in scale_02.pl
$dbh - do(create table coo(col4 bit(8),col10 float,col11 double,col12 date,col13 time,col14 timestamp);) or die create error: $dbh-err
str;

my $sth=$dbh-prepare(select * from coo) 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 scale: $sth-{SCALE}-[$i]\n\n\n;
}

Actual result:
{noformat}
name: col4
scale: 0

name: col10
scale: 0

name: col11
scale: 0

name: col12
scale: 0

name: col13
scale: 0

name: col14
scale: 0
{noformat}

Expect result:
{noformat}
name: col4
scale: 0

name: col10
scale: 31

name: col11
scale: 31

name: col12
scale: 0

name: col13
scale: 0

name: col14
scale: 0
{noformat}