From 08deaa0382ddfbdfb599b880bca2294d1b0a43cc 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 --- 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 7c947db..2bfe3b8 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 fcd2d88..52c74c2 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 1a9f3a6..b9431c4 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 3a46f68..78f4f08 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 57191f1..e5870ad 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 0008faf..f3f73ba 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.1.4