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");