[Dbi-interbase-devel] SEG Fault using DBI::InterBase

[Luc W. <l.w...@vi...>]

	Hello everybody ,

I have troubles using the DBD::Interbase module . When i run this simple
script , it generates seg fault messages


#!/usr/bin/perl -w

use strict;
use DBI;

my $dbname = '192.168.0.1:/database/creapers';

my $dbh = DBI->connect("dbi:InterBase:db=$dbname", "sysdba",
"masterkey");
my $sth = $dbh->prepare ('SELECT * FROM GEBRUIKERS');

$sth->execute();

my @row=();
@row = $sth->fetchrow_array;
$sth->finish;
$sth->disconnect;
print "the end \n";

The problem arises with the fetchrow_array .

If i convert this probgram to the IBPerl equivalent , everything WORKS
????????

!/usr/bin/perl -w

use strict;
use IBPerl;

my $dbname = '192.168.0.1:/database/creapers';

my $dbh = new IBPerl::Connection (Server => '192.168.0.1', Path=>
'/database/creapers', User => 'SYSDBA', Password =>'MASTERKEY');
my $trh = new IBPerl::Transaction (Database=>$dbh);
my $sth = new IBPerl::Statement (Transaction=>$trh,SQL=>"SELECT * FROM
GEBRUIKERS");

$sth->execute();

my @row=();
$sth->fetch(\@row);

$trh->commit();
$dbh->disconnect();

When i run the script in gdb , it tells me the following error :

Program received signal SIGSEGV, Segmentation fault.
0x4026d449 in ib_st_fetch () from
/usr/lib/perl5/site_perl/5.005/i586-linux/auto/DBD/InterBase/InterBase.so         
print "the end \n";

Does any body encounter the same kind of error ? . I'm running this on a
SuSE 6.4 linux and a 4.1 Interbase server.

		Greetings,
		luc