Skip Menu |

This queue is for tickets about the DBI CPAN distribution.

Report information
The Basics
Id: 7687
Status: resolved
Priority: 0/
Queue: DBI

People
Owner: Nobody in particular
Requestors: GGUREVICH [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.43
Fixed in: (no value)



Subject: Attempt to free unreferenced scalar in FETCH
A minimal test case which produces unusualy warnings under perl 5.8.x, linux, windows, and perhaps others: =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= use DBI(); my $sponge = DBI->connect("dbi:Sponge:","",""); my $sth = $sponge->prepare('foo', { rows => [ [ 'bar' ] ], NAME => [ 'baz' ], } ); $sth->DBD::_::dr::FETCH("NAME_hash");
By the way, the use of Sponge is only to provide a minimal test case; this error is seen on production drivers (DBD::ADO for instance) as well. [guest - Fri Sep 17 20:21:09 2004]: Show quoted text
> A minimal test case which produces unusualy warnings under perl
5.8.x, Show quoted text
> linux, windows, and perhaps others: > > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > use DBI(); > > my $sponge = DBI->connect("dbi:Sponge:","",""); > my $sth = $sponge->prepare('foo', { > rows => [ [ 'bar' ] ], > NAME => [ 'baz' ], > } > ); > > $sth->DBD::_::dr::FETCH("NAME_hash");
Show quoted text
> my $sponge = DBI->connect("dbi:Sponge:","",""); > my $sth = $sponge->prepare('foo', { > rows => [ [ 'bar' ] ], > NAME => [ 'baz' ], > } > ); > > $sth->DBD::_::dr::FETCH("NAME_hash");
Why are you calling $sth->DBD::_::dr::FETCH ? Firstly that's an internal method for drivers and shouldn't be called directly. And secondly it's a driver handle method and you're calling it with a statement handle. There may be an issue here, but I can't given it any priority unless you can reproduce it with more "normal" code. Tim.
Fixed. Thanks.