From b0216c7ca0c78c9fbb866950562632315b588e36 Mon Sep 17 00:00:00 2001 From: Zoe Bennett Date: Thu, 18 Jan 2018 03:13:55 +0000 Subject: [PATCH] Bug 20011: use Modern::Perl in plugins perl scripts Test Plan: - Check that it now says 'use Modern::Perl' and not 'use trict; use warnings;' in the follwing plugins perl scripts plugins-home.pl plugins-uninstall.pl plugins-upload.pl run.pl Signed-off-by: Jon Knight Signed-off-by: Katrin Fischer Signed-off-by: Jonathan Druart --- plugins/plugins-home.pl | 3 +-- plugins/plugins-uninstall.pl | 3 +-- plugins/plugins-upload.pl | 3 +-- plugins/run.pl | 3 +-- 4 files changed, 4 insertions(+), 8 deletions(-) diff --git a/plugins/plugins-home.pl b/plugins/plugins-home.pl index 5efd9bd94c..a7d4ce00dc 100755 --- a/plugins/plugins-home.pl +++ b/plugins/plugins-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; +use Modern::Perl; use CGI qw ( -utf8 ); diff --git a/plugins/plugins-uninstall.pl b/plugins/plugins-uninstall.pl index d965e1233a..16138e8288 100755 --- a/plugins/plugins-uninstall.pl +++ b/plugins/plugins-uninstall.pl @@ -15,8 +15,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 Archive::Extract; use File::Temp; diff --git a/plugins/plugins-upload.pl b/plugins/plugins-upload.pl index 8a2ac26934..06fcea571e 100755 --- a/plugins/plugins-upload.pl +++ b/plugins/plugins-upload.pl @@ -16,8 +16,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 Archive::Extract; use File::Temp; diff --git a/plugins/run.pl b/plugins/run.pl index 86c7c360aa..da265de1fd 100755 --- a/plugins/run.pl +++ b/plugins/run.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 ); -- 2.39.5