On 31 August 2011 07:29, koxon <[email protected]> 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",
_______________________________________________
List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
Searchable Archive: http://www.grokbase.com/group/[email protected]
