| Subject: | ->do segfaults with an active statement |
Creating a table with ->do causes a SEGV if there is an active
statement. Will investigate further and maybe send pull request on
github. Sample program:
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
my $dbh = DBI->connect(@ENV{map "DBICTEST_FIREBIRD_$_", qw/DSN USER
PASS/});
my $sth = $dbh->prepare(<<'EOF');
SELECT rdb$relation_name FROM rdb$relations
EOF
$sth->execute;
$dbh->do(<<"EOF");
CREATE TABLE test_segfault_$$ (
id INT PRIMARY KEY
)
EOF
END {
$dbh->disconnect;
$dbh = DBI->connect(@ENV{map "DBICTEST_FIREBIRD_$_", qw/DSN USER
PASS/});
$dbh->do("DROP TABLE test_segfault_$$");
$dbh->disconnect;
}