[Dbix-class] Re: ASE.pm uninitialized value warning

[Will Crawford]

On 31 August 2011 07:29, koxon <nicolas.menciere at ms.com> wrote:

> *Use of uninitialized value in exists at
> //ms/dist/perl5/PROJ/DBIx-Class/0.08195/lib/perl5/DBIx/Class/Storage/DBI/Sybase/ASE.pm
> line 266.*

   if (($op eq 'insert' && $bound_identity_col) ||
-      ($op eq 'update' && exists $args->[0]{$identity_col})) {
+      (defined $identity_col && $op eq 'update' && exists
$args->[0]{$identity_col})) {
     $sql = join ("\n",