#63 [Perl]Error appear when inquiring column_info information about set, multiset and sequence type

[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 foreign_key_info method like foreign_key_info('','','master','','','')

Repro Steps
perl column_8.pl

Statements in column_8.pl
{noformat}
$dbh-do(create table atype3(st SET, ms MULTISET, sq SEQUENCE);) or die $dbh-errstr . :create error\n;
my $sth=$dbh-column_info(undef,undef,'atype3','%') or die column_info error: $dbh-errstr;

while(my $hash_ref=$sth-fetchrow_hashref()){
print DATA_TYPE: $hash_ref-{DATA_TYPE}\t TYPE_NAME: $hash_ref-{TYPE_NAME}\t;
print TABLE_NAME: $hash_ref-{TABLE_NAME}\t;
print COLUMN_NAME: $hash_ref-{COLUMN_NAME}\n\n\n;
}
{noformat}

Actual result:
{noformat}
Use of uninitialized value $type in uc at /home/perl/opt/perl5/lib/site_perl/5.14.1/x86_64-linux/DBD/cubrid.pm line 324.
Use of uninitialized value $type in pattern match (m//) at /home/perl/opt/perl5/lib/site_perl/5.14.1/x86_64-linux/DBD/cubrid.pm line 336.
Use of uninitialized value $type in pattern match (m//) at /home/perl/opt/perl5/lib/site_perl/5.14.1/x86_64-linux/DBD/cubrid.pm line 349.
Use of uninitialized value $type in pattern match (m//) at /home/perl/opt/perl5/lib/site_perl/5.14.1/x86_64-linux/DBD/cubrid.pm line 361.
Use of uninitialized value $type in pattern match (m//) at /home/perl/opt/perl5/lib/site_perl/5.14.1/x86_64-linux/DBD/cubrid.pm line 366.
.........
........

DATA_TYPE: 12 TYPE_NAME: TABLE_NAME: atype3 COLUMN_NAME: ms

DATA_TYPE: 12 TYPE_NAME: TABLE_NAME: atype3 COLUMN_NAME: sq

DATA_TYPE: 12 TYPE_NAME: TABLE_NAME: atype3 COLUMN_NAME: st

{noformat}