From 475d2244fa0d9ca20085d5f59c557a1bf356a192 Mon Sep 17 00:00:00 2001 From: Grace Smyth Date: Thu, 18 Jan 2018 01:42:03 +0000 Subject: [PATCH] Bug 19994: use Modern::Perl in Authorities perl scripts Test Case: Check the following files have been updated from use strict; use warnings; to use Modern::Perl; auth_finder.pl authorities-home.pl authorities-list.pl authorities.pl blinddetail-biblio-search.pl detail-biblio-search.pl detail.pl export.pl merge.pl merge_ajax.pl --- authorities/auth_finder.pl | 3 +-- authorities/authorities-home.pl | 3 +-- authorities/authorities-list.pl | 4 ++-- authorities/authorities.pl | 4 ++-- authorities/blinddetail-biblio-search.pl | 3 +-- authorities/detail-biblio-search.pl | 4 +--- authorities/detail.pl | 4 +--- authorities/export.pl | 3 +-- authorities/merge.pl | 4 ++-- authorities/merge_ajax.pl | 3 +-- 10 files changed, 13 insertions(+), 22 deletions(-) diff --git a/authorities/auth_finder.pl b/authorities/auth_finder.pl index b484f03..6ac7f4a 100755 --- a/authorities/auth_finder.pl +++ b/authorities/auth_finder.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; +Modern::Perl use CGI qw ( -utf8 ); use C4::Output; diff --git a/authorities/authorities-home.pl b/authorities/authorities-home.pl index d9c5ac8..8641714 100755 --- a/authorities/authorities-home.pl +++ b/authorities/authorities-home.pl @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +Modern::Perl use CGI qw ( -utf8 ); use URI::Escape; diff --git a/authorities/authorities-list.pl b/authorities/authorities-list.pl index 0afa5e7..2842b43 100755 --- a/authorities/authorities-list.pl +++ b/authorities/authorities-list.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +Modern::Perl + use C4::Context; use C4::AuthoritiesMarc; use utf8; diff --git a/authorities/authorities.pl b/authorities/authorities.pl index 84fba09..4462c05 100755 --- a/authorities/authorities.pl +++ b/authorities/authorities.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; +Modern::Perl + use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl index 9e7930d..551eb6c 100755 --- a/authorities/blinddetail-biblio-search.pl +++ b/authorities/blinddetail-biblio-search.pl @@ -36,8 +36,7 @@ parameters tables. =cut -use strict; -use warnings; +Modern::Perl use C4::AuthoritiesMarc; use C4::Auth; diff --git a/authorities/detail-biblio-search.pl b/authorities/detail-biblio-search.pl index 717061b..dbf3e27 100755 --- a/authorities/detail-biblio-search.pl +++ b/authorities/detail-biblio-search.pl @@ -36,9 +36,7 @@ parameters tables. =cut - -use strict; -use warnings; +Modern::Perl use C4::AuthoritiesMarc; use C4::Auth; diff --git a/authorities/detail.pl b/authorities/detail.pl index 8dd4b77..d352f37 100755 --- a/authorities/detail.pl +++ b/authorities/detail.pl @@ -36,9 +36,7 @@ parameters tables. =cut - -use strict; -use warnings; +Modern::Perl use C4::AuthoritiesMarc; use C4::Auth; diff --git a/authorities/export.pl b/authorities/export.pl index 6b79ffb..6f35434 100755 --- a/authorities/export.pl +++ b/authorities/export.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl -use strict; -use warnings; +Modern::Perl use C4::Record; use C4::Auth; diff --git a/authorities/merge.pl b/authorities/merge.pl index 9f72541..2201871 100755 --- a/authorities/merge.pl +++ b/authorities/merge.pl @@ -17,8 +17,8 @@ # with Koha; if not, write to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. -use strict; -use warnings; +Modern::Perl + use CGI qw ( -utf8 ); use C4::Output; use C4::Auth; diff --git a/authorities/merge_ajax.pl b/authorities/merge_ajax.pl index 39796b0..0b3026e 100755 --- a/authorities/merge_ajax.pl +++ b/authorities/merge_ajax.pl @@ -1,7 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +Modern::Perl use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before CGI parses the POST request -- 2.1.4