ports/63233: p5-DBD-SQLite 0.31 is broken with perl 5.8

[Stefan `Sec` Zehl]

>Number:         63233
>Category:       ports
>Synopsis:       p5-DBD-SQLite 0.31 is broken with perl 5.8
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Sun Feb 22 10:30:12 PST 2004
>Closed-Date:
>Last-Modified:
>Originator:     Stefan `Sec` Zehl
>Release:        FreeBSD 4.9-STABLE i386
>Organization:
>Environment:
System: FreeBSD ice 4.9-STABLE FreeBSD 4.9-STABLE #11: Sun Jan 25 15:43:27 CET 2004 root at ice:/export/obj/export/src/sys/ICE i386

Port versions

perl-5.8.2_5
p5-DBI-1.40
p5-DBD-SQLite-0.31

	
>Description:

After upgrading to version 0.31 of this port, my scripts started to spew
messages like this:

Bad free() ignored (PERL_CORE) at t.pl line 14.

Otherwise they seemed to run correctly.
	
>How-To-Repeat:

My simple test script was:

#!/usr/local/bin/perl -w
#
# vim:set ts=4 sw=4:

use DBI;
$|=1;

my $db="/usr/local/SELF/tv/tv.db";
my $dbh=DBI->connect("DBI:SQLite:dbname=$db","","");

my $sth=$dbh->prepare("select senderid, senderkey from sender");
$sth->execute();

my $ref;
while($ref = $sth->fetchrow_arrayref){
	print "got line\n";
};

It takes a table with more than ~ 6 rows to show that problem.

	
>Fix:

Workaround: downgrade to DBD-SQLite-0.30 

	


>Release-Note:
>Audit-Trail:
>Unformatted: