Skip Menu |
 

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

Report information
The Basics
Id: 18128
Status: rejected
Priority: 0/
Queue: DBD-Pg

People
Owner: Nobody in particular
Requestors: siracusa [...] mindspring.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in:
  • 1.44
  • 1.45
Fixed in: (no value)



Subject: Bus error when fetching array columns on Mac OS X
Download (untitled) / with headers
text/plain 7.9k
This script reproduces the bug: --- #!/usr/bin/perl use strict; use DBI; DBI->trace(5); my $dbh = DBI->connect('dbi:Pg:dbname=test', 'someuser', 'somepass'); $dbh->do('CREATE TABLE t1 (nums INT[])'); $dbh->do("INSERT INTO t1 (nums) VALUES ('{4,5,6}')"); my $sth = $dbh->prepare('SELECT * FROM t1'); $sth->execute; my $row = $sth->fetch; --- Here's the output when I execute it. --- DBI 1.50-nothread default trace level set to 0x0/5 (pid 7693) Note: perl is running without the recommended perl -w option -> DBI->connect(dbi:Pg:dbname=test, postgres, ****) -> DBI->install_driver(Pg) for darwin perl=5.008008 pid=7693 ruid=501 euid=501 install_driver: DBD::Pg version 1.44 loaded from /usr/local/lib/perl5/site_perl/5.8.8/ darwin-2level/DBD/Pg.pm New DBI::dr (for DBD::Pg::dr, parent=, id=) dbih_setup_handle(DBI::dr=HASH(0x183c604)=>DBI::dr=HASH(0x1834124), DBD::Pg::dr, 0, Null!) dbih_make_com(Null!, 0, DBD::Pg::dr, 84, 0) thr#0 dbih_setup_attrib(DBI::dr=HASH(0x1834124), Err, Null!) SCALAR(0x1833f2c) (already defined) dbih_setup_attrib(DBI::dr=HASH(0x1834124), State, Null!) SCALAR(0x1833ef0) (already defined) dbih_setup_attrib(DBI::dr=HASH(0x1834124), Errstr, Null!) SCALAR(0x1833f14) (already defined) dbih_setup_attrib(DBI::dr=HASH(0x1834124), TraceLevel, Null!) 0 (already defined) dbih_setup_attrib(DBI::dr=HASH(0x1834124), FetchHashKeyName, Null!) 'NAME' (already defined) <- install_driver= DBI::dr=HASH(0x183c604) !! warn: 0 CLEARED by call to default_user method -> default_user in DBD::_::dr for DBD::Pg::dr (DBI::dr=HASH(0x183c604)~0x1834124 'postgres' undef HASH(0x1836938)) <- default_user= ( 'postgres' undef ) [2 items] at /usr/local/lib/perl5/site_perl/5.8.4/ darwin-2level/DBI.pm line 599 via new.pl line 8 -> connect for DBD::Pg::dr (DBI::dr=HASH(0x183c604)~0x1834124 'dbname=test' 'postgres' **** HASH(0x186af24)) New DBI::db (for DBD::Pg::db, parent=DBI::dr=HASH(0x1834124), id=) dbih_setup_handle(DBI::db=HASH(0x1834058)=>DBI::db=HASH(0x186af54), DBD::Pg::db, 183c3a0, Null!) dbih_make_com(DBI::dr=HASH(0x1834124), 316c60, DBD::Pg::db, 124, 0) thr#0 dbih_setup_attrib(DBI::db=HASH(0x186af54), Err, DBI::dr=HASH(0x1834124)) SCALAR (0x1840b54) (already defined) dbih_setup_attrib(DBI::db=HASH(0x186af54), State, DBI::dr=HASH(0x1834124)) SCALAR (0x1840bb4) (already defined) dbih_setup_attrib(DBI::db=HASH(0x186af54), Errstr, DBI::dr=HASH(0x1834124)) SCALAR (0x1840b84) (already defined) dbih_setup_attrib(DBI::db=HASH(0x186af54), TraceLevel, DBI::dr=HASH(0x1834124)) 0 (already defined) dbih_setup_attrib(DBI::db=HASH(0x186af54), FetchHashKeyName, DBI::dr=HASH (0x1834124)) 'NAME' (already defined) dbih_setup_attrib(DBI::db=HASH(0x186af54), HandleSetErr, DBI::dr=HASH(0x1834124)) undef (not defined) dbih_setup_attrib(DBI::db=HASH(0x186af54), HandleError, DBI::dr=HASH(0x1834124)) undef (not defined) dbdpg: dbd_db_login dbdpg: login connection string: (dbname=test user='postgres') -> FETCH for DBD::Pg::db (DBI::db=HASH(0x186af54)~INNER 'pg_server_version') dbdpg: dbd_db_FETCH (pg_server_version) dbh=25604032 <- FETCH= 80103 at /usr/local/lib/perl5/site_perl/5.8.8/darwin-2level/DBD/Pg.pm line 158 via new.pl line 8 -> FETCH for DBD::Pg::db (DBI::db=HASH(0x186af54)~INNER 'private_dbdpg') dbdpg: dbd_db_FETCH (private_dbdpg) dbh=25604032 .. FETCH DBI::db=HASH(0x186af54) 'private_dbdpg' = undef <- FETCH= undef at /usr/local/lib/perl5/site_perl/5.8.8/darwin-2level/DBD/Pg.pm line 159 via new.pl line 8 -> STORE for DBD::Pg::db (DBI::db=HASH(0x186af54)~INNER 'private_dbdpg' HASH (0x186b044)) dbdpg: dbd_db_STORE (private_dbdpg) (1) STORE DBI::db=HASH(0x186af54) 'private_dbdpg' => HASH(0x186b044) <- STORE= 1 at /usr/local/lib/perl5/site_perl/5.8.8/darwin-2level/DBD/Pg.pm line 159 via new.pl line 8 <- connect= DBI::db=HASH(0x1834058) at /usr/local/lib/perl5/site_perl/5.8.4/ darwin-2level/DBI.pm line 617 -> STORE for DBD::Pg::db (DBI::db=HASH(0x186af54)~INNER 'PrintError' 1) dbdpg: dbd_db_STORE (PrintError) (1) STORE DBI::db=HASH(0x186af54) 'PrintError' => 1 <- STORE= 1 at /usr/local/lib/perl5/site_perl/5.8.4/darwin-2level/DBI.pm line 664 -> STORE for DBD::Pg::db (DBI::db=HASH(0x186af54)~INNER 'AutoCommit' 1) dbdpg: dbd_db_STORE (AutoCommit) (1) dbdpg: dbd_db_commit (AutoCommit is 0) (BegunWork is 0) dbdpg: dbd_db_txn_status dbdpg: Setting AutoCommit on forced a commit <- STORE= 1 at /usr/local/lib/perl5/site_perl/5.8.4/darwin-2level/DBI.pm line 664 -> STORE for DBD::Pg::db (DBI::db=HASH(0x186af54)~INNER 'Username' 'postgres') dbdpg: dbd_db_STORE (Username) (1) STORE DBI::db=HASH(0x186af54) 'Username' => 'postgres' <- STORE= 1 at /usr/local/lib/perl5/site_perl/5.8.4/darwin-2level/DBI.pm line 667 via new.pl line 8 <> FETCH= 'postgres' ('Username' from cache) at /usr/local/lib/perl5/site_perl/5.8.4/ darwin-2level/DBI.pm line 667 <- connect= DBI::db=HASH(0x1834058) -> STORE for DBD::Pg::db (DBI::db=HASH(0x186af54)~INNER 'dbi_connect_closure' CODE (0x1856184)) dbdpg: dbd_db_STORE (dbi_connect_closure) (1) STORE DBI::db=HASH(0x186af54) 'dbi_connect_closure' => CODE(0x1856184) <- STORE= 1 at /usr/local/lib/perl5/site_perl/5.8.4/darwin-2level/DBI.pm line 683 via new.pl line 8 -> do for DBD::Pg::db (DBI::db=HASH(0x1834058)~0x186af54 'CREATE TABLE t1 (nums INT[])') dbdpg: pg_quickexec (CREATE TABLE t1 (nums INT[])) dbdpg: _sqlstate dbdpg: pg_error (ERROR: relation "t1" already exists ) number=7 dbdpg: ERROR: relation "t1" already exists error 7 recorded: ERROR: relation "t1" already exists !! ERROR: 7 'ERROR: relation "t1" already exists ' (err#0) <- do= undef at new.pl line 10 DBD::Pg::db do failed: ERROR: relation "t1" already exists !! ERROR: 7 CLEARED by call to do method -> do for DBD::Pg::db (DBI::db=HASH(0x1834058)~0x186af54 'INSERT INTO t1 (nums) VALUES ('{4,5,6}')') dbdpg: pg_quickexec (INSERT INTO t1 (nums) VALUES ('{4,5,6}')) dbdpg: _sqlstate <- do= 1 at new.pl line 11 -> prepare for DBD::Pg::db (DBI::db=HASH(0x1834058)~0x186af54 'SELECT * FROM t1') New DBI::st (for DBD::Pg::st, parent=DBI::db=HASH(0x186af54), id=) dbih_setup_handle(DBI::st=HASH(0x186afe4)=>DBI::st=HASH(0x186afcc), DBD::Pg::st, 186aff0, Null!) dbih_make_com(DBI::db=HASH(0x186af54), 5135c0, DBD::Pg::st, 172, 0) thr#0 dbih_setup_attrib(DBI::st=HASH(0x186afcc), Err, DBI::db=HASH(0x186af54)) SCALAR (0x1840b54) (already defined) dbih_setup_attrib(DBI::st=HASH(0x186afcc), State, DBI::db=HASH(0x186af54)) SCALAR (0x1840bb4) (already defined) dbih_setup_attrib(DBI::st=HASH(0x186afcc), Errstr, DBI::db=HASH(0x186af54)) SCALAR (0x1840b84) (already defined) dbih_setup_attrib(DBI::st=HASH(0x186afcc), TraceLevel, DBI::db=HASH(0x186af54)) 0 (already defined) dbih_setup_attrib(DBI::st=HASH(0x186afcc), FetchHashKeyName, DBI::db=HASH (0x186af54)) 'NAME' (already defined) dbih_setup_attrib(DBI::st=HASH(0x186afcc), HandleSetErr, DBI::db=HASH(0x186af54)) undef (not defined) dbih_setup_attrib(DBI::st=HASH(0x186afcc), HandleError, DBI::db=HASH(0x186af54)) undef (not defined) dbdpg: dbd_st_prepare (SELECT * FROM t1) dbdpg: dbd_st_split_statement dbdpg: Created segment (SELECT * FROM t1) <- prepare= DBI::st=HASH(0x186afe4) at new.pl line 13 -> execute for DBD::Pg::st (DBI::st=HASH(0x186afe4)~0x186afcc) dbdpg: dbd_st_execute dbdpg: PQexec dbdpg: Running PQexec with (SELECT * FROM t1) dbdpg: _sqlstate dbdpg: Status was PGRES_TUPLES_OK, fields=1, tuples=3 <- execute= 3 at new.pl line 14 -> fetch for DBD::Pg::st (DBI::st=HASH(0x186afe4)~0x186afcc) dbdpg: dbd_st_fetch dbih_setup_fbav for 1 fields => 0x186aee8 dbdpg: Fetching a field Bus error --- I'm running perl 5.8.8 with the latest CPAN versions of all modules. The bug happens with both DBD::Pg 1.44 and DBD::Pg 1.45. My OS version: % uname -a Darwin yoshi 8.5.0 Darwin Kernel Version 8.5.0: Sun Jan 22 10:38:46 PST 2006; root:xnu-792.6.61.obj~1/RELEASE_PPC Power Macintosh powerpc
Download (untitled) / with headers
text/plain 136b
Rejecting for now, as this is against a very old version of DBD::Pg, and I've not been able to duplicate on the last couple of versions.


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.