Details
-
Type:
Bug
-
Status:
Closed
-
Priority:
Minor
-
Resolution: Fixed
-
Affects Version/s: None
-
Fix Version/s: Perl-8.4.1
-
Component/s: Perl
-
Labels:None
Description
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:
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:
Expect result:
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
The solution of this problem is same with APIS-64
Commit rev: 333