From 4001dac5bbf8ae750235fbd4a3ce83ffcf92e0c8 Mon Sep 17 00:00:00 2001 From: Catherine Ma Date: Wed, 20 Jan 2021 03:43:33 +0000 Subject: [PATCH] Bug 27481:Use 'Modern::Perl' in cataloguing unimarc plugins Test plan: Check Modern::Perl is used in the place of use strict; use warnings; Sponsored by Catalyst IT --- cataloguing/value_builder/unimarc_field_105.pl | 3 +-- cataloguing/value_builder/unimarc_field_110.pl | 3 +-- cataloguing/value_builder/unimarc_field_120.pl | 4 ++-- cataloguing/value_builder/unimarc_field_130.pl | 4 ++-- cataloguing/value_builder/unimarc_field_140.pl | 4 ++-- cataloguing/value_builder/unimarc_field_225a.pl | 3 +-- cataloguing/value_builder/unimarc_field_4XX.pl | 3 +-- 7 files changed, 10 insertions(+), 14 deletions(-) diff --git a/cataloguing/value_builder/unimarc_field_105.pl b/cataloguing/value_builder/unimarc_field_105.pl index 75b26d26a2..dade1b7705 100755 --- a/cataloguing/value_builder/unimarc_field_105.pl +++ b/cataloguing/value_builder/unimarc_field_105.pl @@ -18,8 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; diff --git a/cataloguing/value_builder/unimarc_field_110.pl b/cataloguing/value_builder/unimarc_field_110.pl index 68fad1379f..dbcd6e5b38 100755 --- a/cataloguing/value_builder/unimarc_field_110.pl +++ b/cataloguing/value_builder/unimarc_field_110.pl @@ -18,8 +18,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; diff --git a/cataloguing/value_builder/unimarc_field_120.pl b/cataloguing/value_builder/unimarc_field_120.pl index 6ee6d0aa19..53ee2d73b2 100755 --- a/cataloguing/value_builder/unimarc_field_120.pl +++ b/cataloguing/value_builder/unimarc_field_120.pl @@ -18,8 +18,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl +#Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; diff --git a/cataloguing/value_builder/unimarc_field_130.pl b/cataloguing/value_builder/unimarc_field_130.pl index 04d0fb9590..471a1c5a8c 100755 --- a/cataloguing/value_builder/unimarc_field_130.pl +++ b/cataloguing/value_builder/unimarc_field_130.pl @@ -18,8 +18,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl +#Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; diff --git a/cataloguing/value_builder/unimarc_field_140.pl b/cataloguing/value_builder/unimarc_field_140.pl index 980dc0914e..80782f4274 100755 --- a/cataloguing/value_builder/unimarc_field_140.pl +++ b/cataloguing/value_builder/unimarc_field_140.pl @@ -18,8 +18,8 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl +#Bug 2505 use Koha::Util::FrameworkPlugin qw(wrapper); use C4::Auth; diff --git a/cataloguing/value_builder/unimarc_field_225a.pl b/cataloguing/value_builder/unimarc_field_225a.pl index a8b39930d4..0f01055220 100755 --- a/cataloguing/value_builder/unimarc_field_225a.pl +++ b/cataloguing/value_builder/unimarc_field_225a.pl @@ -39,8 +39,7 @@ It need : =cut -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl use C4::Auth; use CGI qw ( -utf8 ); use C4::Context; diff --git a/cataloguing/value_builder/unimarc_field_4XX.pl b/cataloguing/value_builder/unimarc_field_4XX.pl index 0caebe1bd8..a3f248d6c1 100755 --- a/cataloguing/value_builder/unimarc_field_4XX.pl +++ b/cataloguing/value_builder/unimarc_field_4XX.pl @@ -18,8 +18,7 @@ # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl use CGI qw ( -utf8 ); use C4::Output; -- 2.11.0