Bug#311788: libdbd-csv-perl: Error when "update tbl set a = a + 1;"

[SUGITA Toshinori]

Package: libdbd-csv-perl
Version: 0.2100-2
Severity: normal

my perl script get error in bellow SQL statement

  update tbl set a = a + 1;

when use column name in right side.
I remember that SQL statement had done correctly in Feb/2005.

Error message is:
DBD::CSV::db do failed: Can't use an undefined value as an ARRAY reference at /usr/share/perl5/SQL/Statement.pm line 1772, <GEN3> line 2.
 [for Statement "update test set b = b + 1"] at test.pl line 7.

that test code is:
--
#!/usr/bin/perl
use DBI;
my $dbh = DBI->connect("DBI:CSV:f_dir=.");
$dbh->do("create table test (a int, b int, c int, d int)");
$dbh->do("insert into test values (0, 0, 0, 0)");
$dbh->do("update test set a = 1");
$dbh->do("update test set b = b + 1");
--


-- System Information:
Debian Release: 3.1
  APT prefers unstable
  APT policy: (500, 'unstable')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.10
Locale: LANG=ja_JP.eucJP, LC_CTYPE=ja_JP.eucJP (charmap=EUC-JP) (ignored: LC_ALL set to ja_JP.eucJP)

Versions of packages libdbd-csv-perl depends on:
ii  libdbi-perl                   1.46-6     Perl5 database interface by Tim Bu
ii  libsql-statement-perl         1.14-1     perl SQL::Statement - SQL parsing 
ii  libtext-csv-perl              0.23-5     perl Text::CSV_XS - comma-separate
ii  perl                          5.8.4-8    Larry Wall's Practical Extraction 

-- no debconf information