From 3ded637bc51227acc9b107da09ba8d0f2a39862d Mon Sep 17 00:00:00 2001 From: Grace Smyth Date: Thu, 18 Jan 2018 03:58:42 +0000 Subject: [PATCH] Bug 20010: use Modern::Perl in Patroncards perl scripts Test Plan: Check the following files have been updated from use strict; use warnings; to use Modern::Perl; create-pdf.pl edit-batch.pl edit-layout.pl edit-profile.pl edit-template.pl home.pl image-manage.pl manage.pl print.pl Signed-off-by: Jon Knight Signed-off-by: Katrin Fischer Signed-off-by: Jonathan Druart --- patroncards/create-pdf.pl | 4 +--- patroncards/edit-batch.pl | 4 ++-- patroncards/edit-layout.pl | 3 +-- patroncards/edit-profile.pl | 3 +-- patroncards/edit-template.pl | 3 +-- patroncards/home.pl | 3 +-- patroncards/image-manage.pl | 3 +-- patroncards/manage.pl | 3 +-- patroncards/print.pl | 3 +-- 9 files changed, 10 insertions(+), 19 deletions(-) diff --git a/patroncards/create-pdf.pl b/patroncards/create-pdf.pl index 6f22049a74..3bd28ba79f 100755 --- a/patroncards/create-pdf.pl +++ b/patroncards/create-pdf.pl @@ -17,9 +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 C4::Auth; use Graphics::Magick; diff --git a/patroncards/edit-batch.pl b/patroncards/edit-batch.pl index 56410079ae..bd06aabb65 100755 --- a/patroncards/edit-batch.pl +++ b/patroncards/edit-batch.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; + +use Modern::Perl; use vars qw($debug); use CGI qw ( -utf8 ); diff --git a/patroncards/edit-layout.pl b/patroncards/edit-layout.pl index d2446403b9..3c7612992d 100755 --- a/patroncards/edit-layout.pl +++ b/patroncards/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 Text::CSV_XS; diff --git a/patroncards/edit-profile.pl b/patroncards/edit-profile.pl index 4b0769c0e3..d84fb19b13 100755 --- a/patroncards/edit-profile.pl +++ b/patroncards/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/patroncards/edit-template.pl b/patroncards/edit-template.pl index f37757c540..3712a6fd82 100755 --- a/patroncards/edit-template.pl +++ b/patroncards/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 ); use autouse 'Data::Dumper' => qw(Dumper); diff --git a/patroncards/home.pl b/patroncards/home.pl index b88221f337..cb8e7a5b06 100755 --- a/patroncards/home.pl +++ b/patroncards/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/patroncards/image-manage.pl b/patroncards/image-manage.pl index 514ea942c1..2c08123427 100755 --- a/patroncards/image-manage.pl +++ b/patroncards/image-manage.pl @@ -1,7 +1,6 @@ #!/usr/bin/perl -use warnings; -use strict; +use Modern::Perl; use CGI qw ( -utf8 ); use Graphics::Magick; diff --git a/patroncards/manage.pl b/patroncards/manage.pl index 837fccdf76..96f8158e0d 100755 --- a/patroncards/manage.pl +++ b/patroncards/manage.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/patroncards/print.pl b/patroncards/print.pl index c57be1d25c..8992038fec 100755 --- a/patroncards/print.pl +++ b/patroncards/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 autouse 'Data::Dumper' => qw(Dumper); -- 2.39.5