bind_columns () does
--8<--- DBI.pm # 1866
my $idx = 0;
$sth->bind_col(++$idx, shift, $attr) or return
while (@_ and $idx < $fields);
-->8---
Which may lead to errors like
Can't DBI::st=HASH(0x402ebac8)->bind_col(1, ARRAY(0x402ebe38),...), need a
reference to a scalar at /pro/lib/perl5/site_perl/5.10.1/PA-RISC2.0/DBI.pm line
1867.
something not very useful to the end-user.
I don't know why just adding 'local $Carp::CarpLevel = 1;' there
doesn't help, so I had to do
--8<---
my $idx = 0;
while (@_ and $idx < $fields) {
use Carp;
my $state = eval { local $Carp::CarpLevel = 1;
$sth->bind_col(++$idx, shift, $attr); };
if ($@) {
$@ =~ s/\s+at\s+\S+\s+line.*//s;
croak $@;
}
$state or return
}
-->8---
to get to
Can't DBI::st=HASH(0x402ec680)->bind_col(1, ARRAY(0x402ec8c0),...), need a
reference to a scalar at /pro/tu/bev/local/bin/gvH.pl line 123
which is what makes the end-user much happier. Suggestions?
--
H.Merijn Brand http://tux.nl Perl Monger http://amsterdam.pm.org/
using & porting perl 5.6.2, 5.8.x, 5.10.x, 5.11.x on HP-UX 10.20, 11.00,
11.11, 11.23, and 11.31, OpenSuSE 10.3, 11.0, and 11.1, AIX 5.2 and 5.3.
http://mirrors.develooper.com/hpux/ http://www.test-smoke.org/
http://qa.perl.org http://www.goldmark.org/jeff/stupid-disclaimers/
