[Dbi-interbase-devel] Coredump using Tie::DBI

[Michael S. <mi...@ch...>]

Hello dbi-interbase-devel,

The following script coredumps on exit (after "Ok3")

=====================================================================================================
use Data::Dumper;
use DBI;
use DBD::InterBase;
use Tie::DBI;
use strict;

my $db = "InterBase:database=/usr/interbase/price.gdb;host=localhost;ib_dialect=3;ib_charset=WIN1251";
my $user = 'SYSDBA';
my $pass = 'masterkey';
my $dbh = DBI->connect("DBI:$db", $user, $pass);
$dbh->trace(5);
tie my %h, 'Tie::DBI', {
  db => $dbh,
#  db => $db,
  user => $user,
  password => $pass,
  table => 'users',
  key => 'login',
  CLOBBER => 1,
  DEBUG => 1,
};
# print Data::Dumper::Dumper($h{joe});
my $pass = $h{joe}{pass};
$h{joe}{pass} = 'test';
untie %h;
print "Ok\n";
$dbh->disconnect;
print "Ok1\n";
undef %h;
print "Ok2\n";
undef $dbh;
print "Ok3\n";
1;
=====================================================================================================
CREATE DOMAIN INT_NOTNULL INT DEFAULT '0' NOT NULL;
CREATE DOMAIN SMALL_NOTNULL INT DEFAULT '0' NOT NULL;
CREATE DOMAIN CHAR1   CHAR DEFAULT '' NOT NULL;
CREATE DOMAIN CHAR5   VARCHAR(5) DEFAULT '' NOT NULL;
CREATE DOMAIN CHAR8   VARCHAR(8) DEFAULT '' NOT NULL;
CREATE DOMAIN CHAR9   VARCHAR(9) DEFAULT '' NOT NULL;
CREATE DOMAIN CHAR12  VARCHAR(12) DEFAULT '' NOT NULL;
CREATE DOMAIN CHAR15  VARCHAR(15) DEFAULT '' NOT NULL;
CREATE DOMAIN CHAR16  VARCHAR(16) DEFAULT '' NOT NULL;
CREATE DOMAIN CHAR20  VARCHAR(20) DEFAULT '' NOT NULL;
CREATE DOMAIN CHAR22  VARCHAR(22) DEFAULT '' NOT NULL;
CREATE DOMAIN CHAR32  VARCHAR(32) DEFAULT '' NOT NULL;
CREATE DOMAIN CHAR64  VARCHAR(64) DEFAULT '' NOT NULL;
CREATE DOMAIN CHAR128 VARCHAR(128) DEFAULT '' NOT NULL;
CREATE DOMAIN CHAR250 VARCHAR(250) DEFAULT '' NOT NULL;
CREATE DOMAIN MONEY /*DOUBLE PRECISION*/ DECIMAL(10,2) DEFAULT '0.00' NOT NULL;
CREATE DOMAIN DATETIME TIMESTAMP DEFAULT 'NOW' NOT NULL;
CREATE DOMAIN DATE_DOM TIMESTAMP DEFAULT 'NOW' NOT NULL;
CREATE DOMAIN BAN_EVENT VARCHAR(5) DEFAULT 'load' NOT NULL
  CHECK (VALUE IN ('load','click','ref'));
CREATE DOMAIN ORDER_STATE VARCHAR(8) DEFAULT '' NOT NULL
  CHECK (VALUE IN ('','rejected','accepted'));
CREATE DOMAIN USER_KIND CHAR DEFAULT 'p' NOT NULL
  CHECK (VALUE IN ('p','j'));

CREATE TABLE USERS (
  USER_ID INT_NOTNULL,
  LOGIN CHAR16,
  PASS CHAR64,
  REGTIME DATETIME,
  KIND USER_KIND,
  FNAME CHAR16,
  MNAME CHAR16,
  LNAME CHAR16,
  PHONE CHAR16,
  FAX CHAR16,
  EMAIL CHAR32,
  URL CHAR128,
  COUNTRY CHAR16,
  CITY CHAR16,
  FIRM CHAR64,
  INN CHAR12,
  BANK CHAR64,
  RS CHAR20,
  KS CHAR20,
  BIK CHAR9,
  ADDR CHAR250,
  INFO CHAR250,
  CONSTRAINT USERS_PK PRIMARY KEY (USER_ID)
);
CREATE UNIQUE INDEX USERS_I1 ON USERS (LOGIN);

CREATE GENERATOR USERS_GEN;

SET TERM ^ ;
CREATE TRIGGER USERS_BEFOREINSERT FOR USERS
ACTIVE BEFORE INSERT POSITION 0
AS BEGIN
  NEW.USER_ID = GEN_ID(USERS_GEN, 1);
END
^
SET TERM ; ^

==============================================================================

P.S. To Edwin: are you mind my numerous bugreports?

Best regards,
 Michael                          mailto:mi...@ch...