From 877911da4700f2e50b8faba9d85b264b1559c428 Mon Sep 17 00:00:00 2001 From: Te Rauhina Jackson Date: Thu, 18 Jan 2018 03:14:44 +0000 Subject: [PATCH] Bug 19998: use Modern::Perl in error perl scripts Test Plan: Check the following files have been updated from use strict; use warnings; to use Modern::Perl; 400.pl 401.pl 402.pl 403.pl 404.pl 500.pl Signed-off-by: Jon Knight Signed-off-by: Katrin Fischer --- errors/400.pl | 3 +-- errors/401.pl | 3 +-- errors/402.pl | 3 +-- errors/403.pl | 3 +-- errors/404.pl | 3 +-- errors/500.pl | 3 +-- 6 files changed, 6 insertions(+), 12 deletions(-) diff --git a/errors/400.pl b/errors/400.pl index 7c947dbf29..2bfe3b80e5 100755 --- a/errors/400.pl +++ b/errors/400.pl @@ -16,8 +16,7 @@ # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/errors/401.pl b/errors/401.pl index fcd2d88b16..52c74c2f09 100755 --- a/errors/401.pl +++ b/errors/401.pl @@ -15,8 +15,7 @@ # Koha; if not, write to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/errors/402.pl b/errors/402.pl index 1a9f3a6876..b9431c4ef1 100755 --- a/errors/402.pl +++ b/errors/402.pl @@ -16,8 +16,7 @@ # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/errors/403.pl b/errors/403.pl index 3a46f68a2f..78f4f08aa2 100755 --- a/errors/403.pl +++ b/errors/403.pl @@ -16,8 +16,7 @@ # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/errors/404.pl b/errors/404.pl index 57191f1600..e5870ad83f 100755 --- a/errors/404.pl +++ b/errors/404.pl @@ -16,8 +16,7 @@ # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; diff --git a/errors/500.pl b/errors/500.pl index 0008faf5c5..f3f73bac10 100755 --- a/errors/500.pl +++ b/errors/500.pl @@ -16,8 +16,7 @@ # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; -- 2.14.1