$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/

Reply via email to