From b4458e71e56aaa79c80b695aa9c7945a29211584 Mon Sep 17 00:00:00 2001
From: Te Rauhina Jackson <terauhina.jackson@gmail.com>
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 <J.P.Knight@lboro.ac.uk>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 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.39.5