From 474d8dad1f202d723ad0dceb3f282562cde29a4a 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 --- 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 6f22049..3bd28ba 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 5641007..bd06aab 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 d244640..3c76129 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 4b0769c..d84fb19 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 f37757c..3712a6f 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 b88221f..cb8e7a5 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 514ea94..2c08123 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 837fccd..96f8158 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 c57be1d..8992038 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.1.4