$DBI_DSN = "dbi:CSV:f_dir=.;f_ext=.csv/r;f_schema=undef"
select PROVINCIE_VEST, count (*)
from cfischolen
group by PROVINCIE_VEST
semi-panic: attempt to dup freed string at
/pro/lib/perl5/site_perl/5.10.0/i686-linux-64int/DBD/File.pm line 629.
Segmentation fault
DBI-1.609
DBD::File-0.37
DBD::CSV-0.25
SQL::Statement-1.20
sub FETCH ($$)
{
my ($sth, $attrib) = @_;
exists $unsupported_attrib{$attrib}
and return undef; # Workaround for a bug in DBI 0.93
$attrib eq "NAME" and
return $sth->FETCH ("f_stmt")->{NAME};
if ($attrib eq "NULLABLE") {
my ($meta) = $sth->FETCH ("f_stmt")->{NAME}; # Intentional !
$meta or return undef;
return [ (1) x @$meta ];
}
if ($attrib eq lc $attrib) {
# Private driver attributes are lower cased
return $sth->{$attrib};
}
# else pass up to DBI to handle
return $sth->SUPER::FETCH ($attrib); # <= line 629
} # FETCH
So far, I have not been able to make a small reproduceable case.
Any pointers appreciated.
--
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/
