@@ -, +, @@ DBD::mysql::st execute failed: MySQL server has gone away at /home/koha/kohaclone/C4/Members.pm line 881. --- Koha/Schema.pm | 2 +- Koha/Storage.pm | 16 ++++++++++++++++ t/db_dependent/Koha_Database.t | 4 +++- 3 files changed, 20 insertions(+), 2 deletions(-) create mode 100644 Koha/Storage.pm --- a/Koha/Schema.pm +++ a/Koha/Schema.pm @@ -15,6 +15,6 @@ __PACKAGE__->load_namespaces; # Created by DBIx::Class::Schema::Loader v0.07025 @ 2013-10-14 20:56:21 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:oDUxXckmfk6H9YCjW8PZTw +__PACKAGE__->storage_type('Koha::Storage'); -# You can replace this text with custom content, and it will be preserved on regeneration 1; --- a/Koha/Storage.pm +++ a/Koha/Storage.pm @@ -0,0 +1,16 @@ +use utf8; +package Koha::Storage; + +use strict; +use warnings; + +use base 'DBIx::Class::Storage::DBI'; +sub DESTROY { + my $self = shift; + + # destroy just the object if not native to this process/thread + $self->_preserve_foreign_dbh; + + $self->_dbh(undef); +} +1; --- a/t/db_dependent/Koha_Database.t +++ a/t/db_dependent/Koha_Database.t @@ -4,7 +4,7 @@ use Modern::Perl; use utf8; -use Test::More tests => 10; +use Test::More tests => 11; BEGIN { use_ok('Koha::Database'); @@ -35,6 +35,8 @@ $schema->resultset('Category')->create({ categorycode => 'GIFT-RUS', description => $gift, }); +my $cat = $schema->resultset('Category')->find('GIFT-RUS'); +ok( $cat, 'Found category with find' ); my $desc = $schema->resultset('Category')->search({ categorycode => 'GIFT-RUS', })->single->get_column('description'); --