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>

diff --git a/errors/400.pl b/errors/400.pl
index 7c947db..2bfe3b8 100755 (executable)
--- 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 (executable)
--- 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 (executable)
--- 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 (executable)
--- 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 (executable)
--- 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 (executable)
--- 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;