From 88916fb7b9bd3990ea52e1d98c179cb6b0a520fb Mon Sep 17 00:00:00 2001 From: Zoe Bennett Date: Wed, 17 Jan 2018 23:00:28 +0000 Subject: [PATCH] Bug 19999: Replacing 'use strict; use warnings;' with 'use Modern::Perl;' Test Plan: - Check that it now says 'use Modern::Perl;' and not 'use strict; use warnings;' in the following labels perl scripts: label-create-csv.pl label-create-pdf.pl label-create-xml.pl label-edit-batch.pl label-edit-layout.pl label-edit-profile.pl label-edit-template.pl label-home.pl label-item-search.pl label-print.pl spinelabel-home.pl spinelabel-print.pl --- labels/label-create-csv.pl | 3 +-- labels/label-create-pdf.pl | 3 +-- labels/label-create-xml.pl | 3 +-- labels/label-edit-batch.pl | 3 +-- labels/label-edit-layout.pl | 3 +-- labels/label-edit-profile.pl | 3 +-- labels/label-edit-template.pl | 3 +-- labels/label-home.pl | 3 +-- labels/label-item-search.pl | 3 +-- labels/label-print.pl | 3 +-- labels/spinelabel-home.pl | 3 +-- labels/spinelabel-print.pl | 3 +-- 12 files changed, 12 insertions(+), 24 deletions(-) diff --git a/labels/label-create-csv.pl b/labels/label-create-csv.pl index 41dc778..eaa45fb 100755 --- a/labels/label-create-csv.pl +++ b/labels/label-create-csv.pl @@ -18,8 +18,7 @@ # along with Koha; if not, see . # -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use Text::CSV_XS; diff --git a/labels/label-create-pdf.pl b/labels/label-create-pdf.pl index c15c7e7..edff024 100755 --- a/labels/label-create-pdf.pl +++ b/labels/label-create-pdf.pl @@ -18,8 +18,7 @@ # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; diff --git a/labels/label-create-xml.pl b/labels/label-create-xml.pl index bed86e2..d0369db 100755 --- a/labels/label-create-xml.pl +++ b/labels/label-create-xml.pl @@ -18,8 +18,7 @@ # along with Koha; if not, see . # -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use XML::Simple; diff --git a/labels/label-edit-batch.pl b/labels/label-edit-batch.pl index 5252213..664c0b5 100755 --- a/labels/label-edit-batch.pl +++ b/labels/label-edit-batch.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; +use Modern::Perl; use vars qw($debug); use CGI qw ( -utf8 ); diff --git a/labels/label-edit-layout.pl b/labels/label-edit-layout.pl index c1aafd4..e14135a 100755 --- a/labels/label-edit-layout.pl +++ b/labels/label-edit-layout.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; +use Modern::Perl; use CGI qw ( -utf8 ); use POSIX; diff --git a/labels/label-edit-profile.pl b/labels/label-edit-profile.pl index e5ed353..07e34ca 100755 --- a/labels/label-edit-profile.pl +++ b/labels/label-edit-profile.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; +use Modern::Perl; use CGI qw ( -utf8 ); diff --git a/labels/label-edit-template.pl b/labels/label-edit-template.pl index bcee714..d4afc5e 100755 --- a/labels/label-edit-template.pl +++ b/labels/label-edit-template.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; +use Modern::Perl; use CGI qw ( -utf8 ); diff --git a/labels/label-home.pl b/labels/label-home.pl index ca581ac..b5b361c 100755 --- a/labels/label-home.pl +++ b/labels/label-home.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; +use Modern::Perl; use CGI qw ( -utf8 ); diff --git a/labels/label-item-search.pl b/labels/label-item-search.pl index d93c922..c0a7e8f 100755 --- a/labels/label-item-search.pl +++ b/labels/label-item-search.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; +use Modern::Perl; use vars qw($debug $cgi_debug); use CGI qw ( -utf8 ); diff --git a/labels/label-print.pl b/labels/label-print.pl index ced9e82..e8a42fa 100755 --- a/labels/label-print.pl +++ b/labels/label-print.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; +use Modern::Perl; use CGI qw ( -utf8 ); use Data::Dumper; diff --git a/labels/spinelabel-home.pl b/labels/spinelabel-home.pl index 11b3a78..dcb9d12 100755 --- a/labels/spinelabel-home.pl +++ b/labels/spinelabel-home.pl @@ -15,8 +15,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use warnings; -use strict; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/labels/spinelabel-print.pl b/labels/spinelabel-print.pl index 08970d1..d1e81ea 100755 --- a/labels/spinelabel-print.pl +++ b/labels/spinelabel-print.pl @@ -15,8 +15,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use warnings; -use strict; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; -- 2.1.4