This works on my (admittedly ancient) DBD::SQLite v1.11.

However, if you're running version 2, this looks like it  might be a bug
in DBD::SQLite, based on the first section of "5.0 Examples" here:
http://www.sqlite.org/datatypes.html.

It might be helpful to submit a defect on rt.cpan.org per the
DBD::SQLite docs.

- Philip 

-----Original Message-----
From: news [mailto:[EMAIL PROTECTED] On Behalf Of Will Parsons
Sent: Tuesday, March 13, 2007 9:41 PM
To: [email protected]
Subject: Unexpected error with DBD::SQLite

This program produces an error which looks wrong to me:

-------------------------------------------------------
#!/usr/bin/env perl
use strict;
use DBI;

my $dbh = DBI->connect('dbi:SQLite:test.db', '', '',
                       { AutoCommit   => 1,
                         PrintError   => 0,
                         RaiseError   => 1 });

eval { $dbh->do("drop table X"); };

$dbh->do("create table X(a TEXT, b TEXT, unique(a, b))");

my $sth = $dbh->prepare("insert into X(a, b) values('N', ?)");

$sth->execute('1.1');
$sth->execute('1.10');
-------------------------------------------------------

When run, I see:

$ ./test-sqlite.pl 
DBD::SQLite::st execute failed: columns a, b are not unique(1) at 
dbdimp.c line 401 at ./test-sqlite.pl line 17.

Is this correct behaviour?

- Will


Reply via email to