Skip Menu |
 

This queue is for tickets about the DBD-Pg CPAN distribution.

Report information
The Basics
Id: 46103
Status: resolved
Priority: 0/
Queue: DBD-Pg

People
Owner: greg [...] turnstep.com
Requestors: HMBRAND [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: (no value)
Fixed in: 2.14.0



Subject: foreign_key_info () does not honor FetchHashKeyName attribute
Download (untitled) / with headers
text/plain 1.9k
--8<--- test.pl use strict; use warnings; use DBI; use Data::Peek; my $dbh = DBI->connect ($ENV{DBI_DSN}, undef, undef, { AutoCommit => 0, ChopBlanks => 1, FetchHashKeyName => "NAME_lc", PrintError => 1, RaiseError => 1, ShowErrorStatement => 1, # dbd_verbose => 9, }) or die $DBI::errstr; my $sch = "public"; my $tbl = "test$$"; $dbh->do ("create table B$tbl (c_test integer primary key, test varchar (4))"); $dbh->do ("insert into B$tbl values (1, 'test')"); $dbh->do ("create table $tbl (c_test integer)"); $dbh->do ("alter table $tbl add constraint ". "L$tbl foreign key (c_test) references ". "B$tbl (c_test)"); $dbh->do ("insert into $tbl values (1)"); my $stl = $dbh->foreign_key_info ( undef, undef, undef, undef, $sch, $tbl) or die; $stl->execute; DDumper ($stl->fetchrow_hashref); my $sth = $dbh->prepare ("select * from $sch.$tbl"); $sth->execute; DDumper ($sth->fetchrow_hashref); $dbh->do ("drop table $tbl"); $dbh->do ("drop table B$tbl"); -->8--- $ perl test.pl NOTICE: CREATE TABLE / PRIMARY KEY will create implicit index "btest25869_pkey" for table "btest25869" $VAR1 = { DEFERABILITY => '7', DELETE_RULE => '3', FK_COLUMN_NAME => 'c_test', FK_DATA_TYPE => 'int4', FK_NAME => 'ltest25869', FK_TABLE_CAT => undef, FK_TABLE_NAME => 'test25869', FK_TABLE_SCHEM => 'public', ORDINAL_POSITION => 1, UK_COLUMN_NAME => 'c_test', UK_DATA_TYPE => 'int4', UK_NAME => 'btest25869_pkey', UK_TABLE_CAT => undef, UK_TABLE_NAME => 'btest25869', UK_TABLE_SCHEM => 'public', UNIQUE_OR_PRIMARY => 'PRIMARY', UPDATE_RULE => '3' }; $VAR1 = { c_test => '1' }; Issuing rollback() for database handle being DESTROY'd without explicit disconnect(). All the keys in the return hash from foreign_key_info () should be lower case!
Download (untitled) / with headers
text/plain 118b
Thanks for the report: this should be fixed in r12779, and will be part of the next release, either 2.13.2 or 2.14.0.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.