From c316c0172457f29ec86cb21b1f9b768bcb13c43e Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Wed, 31 Jan 2024 15:04:45 +0000 Subject: [PATCH] Bug 35959: (follow-up) Do not push, but refill ISA Test plan: See previous patch. Run qa tools on patch set that touches one of the modules. (I used 28869 touching AuthorisedValue.pm.) Signed-off-by: Marcel de Rooy --- Koha/Account/DebitType.pm | 2 +- Koha/AuthorisedValue.pm | 2 +- Koha/Patron/Attribute/Type.pm | 2 +- Koha/Patron/Category.pm | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Koha/Account/DebitType.pm b/Koha/Account/DebitType.pm index 8cc2645566..4f2f38ad70 100644 --- a/Koha/Account/DebitType.pm +++ b/Koha/Account/DebitType.pm @@ -25,7 +25,7 @@ use Koha::Database; use Koha::Exceptions; # Bug 35959 - Avoid Inconsistent hierarchy warn by replacing use base line -push @Koha::Account::DebitType::ISA, qw(Koha::Object Koha::Object::Limit::Library); +@Koha::Account::DebitType::ISA = qw(Koha::Object Koha::Object::Limit::Library); =head1 NAME diff --git a/Koha/AuthorisedValue.pm b/Koha/AuthorisedValue.pm index e756b1abc1..407df68917 100644 --- a/Koha/AuthorisedValue.pm +++ b/Koha/AuthorisedValue.pm @@ -25,7 +25,7 @@ use Koha::Object; use Koha::Object::Limit::Library; # Bug 35959 - Avoid Inconsistent hierarchy warn by replacing use base line -push @Koha::AuthorisedValue::ISA, qw(Koha::Object Koha::Object::Limit::Library); +@Koha::AuthorisedValue::ISA = qw(Koha::Object Koha::Object::Limit::Library); my $cache = Koha::Caches->get_instance(); diff --git a/Koha/Patron/Attribute/Type.pm b/Koha/Patron/Attribute/Type.pm index 88166d927a..12a9a9878f 100644 --- a/Koha/Patron/Attribute/Type.pm +++ b/Koha/Patron/Attribute/Type.pm @@ -24,7 +24,7 @@ use Koha::Database; use Koha::Exceptions::Patron::Attribute::Type; # Bug 35959 - Avoid Inconsistent hierarchy warn by replacing use base line -push @Koha::Patron::Attribute::Type::ISA, qw(Koha::Object Koha::Object::Limit::Library); +@Koha::Patron::Attribute::Type::ISA = qw(Koha::Object Koha::Object::Limit::Library); =head1 NAME diff --git a/Koha/Patron/Category.pm b/Koha/Patron/Category.pm index edc86d1881..ffb52e0e09 100644 --- a/Koha/Patron/Category.pm +++ b/Koha/Patron/Category.pm @@ -25,7 +25,7 @@ use Koha::Database; use Koha::DateUtils qw( dt_from_string ); # Bug 35959 - Avoid Inconsistent hierarchy warn by replacing use base line -push @Koha::Patron::Category::ISA, qw(Koha::Object Koha::Object::Limit::Library); +@Koha::Patron::Category::ISA = qw(Koha::Object Koha::Object::Limit::Library); =head1 NAME -- 2.44.0