Details
-
Type:
Bug
-
Status:
Closed
-
Priority:
Minor
-
Resolution: Fixed
-
Affects Version/s: None
-
Fix Version/s: Perl-Aprium
-
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: 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
$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";
}
Actual result:
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
Fix in trunk, revision: 1447
Merge into RB-8.4.1, revision: 1448
Merge into RB-8.4.3, revision: 1449
Merge into RB-8.4.4, revision: 1450
Now, the result is as below: