Bug #32931 for DBIx-Class: 'Uninitialized value' when update fails

I have created a test case but that works fine. I will need to investigate further.

use strict; use warnings; package DB::Main::MyTable; use base qw/DBIx::Class/; __PACKAGE__->load_components(qw/PK::Auto Core/); __PACKAGE__->table('mytable'); __PACKAGE__->add_columns(qw/something altkey/); __PACKAGE__->add_column( mykey => { is_auto_increment => 1 } ); __PACKAGE__->set_primary_key('mykey'); 1;

DROP DATABASE IF EXISTS testdbix; CREATE DATABASE testdbix; USE testdbix; CREATE TABLE mytable ( mykey SMALLINT UNSIGNED NOT NULL AUTO_INCREMENT, something VARCHAR(16) NOT NULL DEFAULT '???', altkey SMALLINT UNSIGNED NOT NULL, PRIMARY KEY (mykey), UNIQUE KEY altkey (altkey) ); INSERT into mytable SET something = 'alpha', altkey = 10; INSERT into mytable SET something = 'beta', altkey = 11; INSERT into mytable SET something = 'gamma', altkey = 12; SELECT * FROM mytable; UPDATE mytable SET altkey = 10 WHERE mykey = 2;

#!/usr/bin/perl use strict; use warnings; use DB::Main; my ( $dbi_dsn, $user, $pass ) = ( q{dbi:mysql:testdbix}, q{root}, q{} ); my $schema = DB::Main->connect( $dbi_dsn, $user, $pass, {} ); my @rows = $schema->resultset(q{MyTable})->all; for my $r (@rows) { print join( q{/}, $r->mykey, $r->something, $r->altkey ), qq{\n}; } print qq{case 1\n}; eval { $schema->resultset(q{MyTable})->search({mykey=> 2})->update( { altkey => 10 } ); print qq{update done\n}; }; if ($@) { print qq{exception: $@\n}; } else { print qq{no exception}; } print qq{case 2\n}; eval { $schema->resultset(q{MyTable})->search({mykey=> 2})->update( { mykey => 1 } ); print qq{update done\n}; }; if ($@) { print qq{exception: $@\n}; } else { print qq{no exception}; }

use strict; use warnings; package DB::Main; use base qw/DBIx::Class::Schema/; __PACKAGE__->load_classes(); 1;