From 165c56de29b259c0607d5e3000045ae5fe481af0 Mon Sep 17 00:00:00 2001 From: Zoe Bennett Date: Wed, 17 Jan 2018 23:00:28 +0000 Subject: [PATCH] Bug 19999: use Modern::Perl in label scripts 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 Signed-off-by: Jonathan Druart --- 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 41dc77858b..eaa45fb3f4 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 c15c7e7405..edff024bc1 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 bed86e27d0..d0369db465 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 5252213a5f..664c0b51e1 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 c1aafd4c46..e14135abb2 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 e5ed353e74..07e34caf1d 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 bcee714b04..d4afc5eede 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 ca581acab7..b5b361ca5c 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 d93c922225..c0a7e8f98e 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 ced9e82c28..e8a42fa206 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 11b3a7888a..dcb9d12c88 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 08970d12a0..d1e81ea14b 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.39.5