Bug 20019: use Modern::Perl in misc perl scripts

Test Plan:
Test Plan:
Check the following files have been updated from
use strict;
use warnings;
to
use Modern::Perl;

services/itemrecorddisplay.pl
suggestion/suggestion.pl
tags/list.pl
tags/review.pl
virtualshelves/sendshelf.pl
help.pl
changelanguage.pl
koha_perl_deps.pl
debian/bd-to-depends
debian/build-git-snapshot
debian/list-deps
docs/CAS/CASProxy/examples/koha_webservice.pl
docs/CAS/CASProxy/examples/proxy_cas.pl
docs/CAS/CASProxy/examples/proxy_cas_callback.pl
docs/CAS/CASProxy/examples/proxy_cas_data.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/changelanguage.pl b/changelanguage.pl
index 360484c..3463c60 100755 (executable)
--- a/changelanguage.pl
+++ b/changelanguage.pl
@@ -15,8 +15,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use C4::Templates;
 use CGI qw ( -utf8 );

diff --git a/debian/bd-to-depends b/debian/bd-to-depends
index cff8b24..5bc755b 100755 (executable)
--- a/debian/bd-to-depends
+++ b/debian/bd-to-depends
@@ -1,7 +1,6 @@
 #!/usr/bin/perl
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 my @exclusions = (
     'debhelper',

diff --git a/debian/build-git-snapshot b/debian/build-git-snapshot
index 260816d..0ae2197 100755 (executable)
--- a/debian/build-git-snapshot
+++ b/debian/build-git-snapshot
@@ -21,8 +21,7 @@
 #   Srdjan Jankovic <srdjan@catalyst.net.nz>
 # Based on an sh version by Lars Wirzenius.
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use Getopt::Long;
 use POSIX qw/strftime/;

diff --git a/debian/list-deps b/debian/list-deps
index cba49c6..d599df8 100755 (executable)
--- a/debian/list-deps
+++ b/debian/list-deps
@@ -17,8 +17,7 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use C4::Installer::PerlDependencies;
 

diff --git a/docs/CAS/CASProxy/examples/koha_webservice.pl b/docs/CAS/CASProxy/examples/koha_webservice.pl
index 1fc33ba..dbaa19e 100755 (executable)
--- a/docs/CAS/CASProxy/examples/koha_webservice.pl
+++ b/docs/CAS/CASProxy/examples/koha_webservice.pl
@@ -32,8 +32,7 @@ The Proxy Ticket, needed for check_api_auth, that will try to make the CAS Serve
 =cut 
 
 use utf8;
-use strict;
-use warnings;
+use Modern::Perl;
 binmode(STDOUT, ":utf8");
 
 use C4::Auth qw(check_api_auth);

diff --git a/docs/CAS/CASProxy/examples/proxy_cas.pl b/docs/CAS/CASProxy/examples/proxy_cas.pl
index 407892b..2db8d93 100755 (executable)
--- a/docs/CAS/CASProxy/examples/proxy_cas.pl
+++ b/docs/CAS/CASProxy/examples/proxy_cas.pl
@@ -28,8 +28,7 @@
 
 =cut
 
-use strict;
-use warnings;
+use Modern::Perl;
 use CGI qw ( -utf8 );
 use Authen::CAS::Client;
 

diff --git a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl b/docs/CAS/CASProxy/examples/proxy_cas_callback.pl
index 52e58e2..4ee46b5 100755 (executable)
--- a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl
+++ b/docs/CAS/CASProxy/examples/proxy_cas_callback.pl
@@ -25,8 +25,7 @@
 
 =cut
 
-use strict;
-use warnings;
+use Modern::Perl;
 use CGI qw ( -utf8 );
 use Authen::CAS::Client;
 use Storable qw(nstore_fd);

diff --git a/docs/CAS/CASProxy/examples/proxy_cas_data.pl b/docs/CAS/CASProxy/examples/proxy_cas_data.pl
index ba4a138..a333f89 100755 (executable)
--- a/docs/CAS/CASProxy/examples/proxy_cas_data.pl
+++ b/docs/CAS/CASProxy/examples/proxy_cas_data.pl
@@ -30,8 +30,7 @@ This PGTIOU will allow us to retrive the matching PGTID
 
 =cut 
 
-use strict;
-use warnings;
+use Modern::Perl;
 use CGI qw ( -utf8 );
 use Authen::CAS::Client;
 use Storable qw(fd_retrieve);

diff --git a/help.pl b/help.pl
index ad86a2d..d549c23 100755 (executable)
--- a/help.pl
+++ b/help.pl
@@ -17,8 +17,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 use C4::Templates;
 use C4::Output;
 # use C4::Auth;

diff --git a/koha_perl_deps.pl b/koha_perl_deps.pl
index 9ca2a14..cf68632 100755 (executable)
--- a/koha_perl_deps.pl
+++ b/koha_perl_deps.pl
@@ -9,8 +9,7 @@ use lib $FindBin::Bin;
 
 use C4::Installer::PerlModules;
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 my $help = 0;
 my $missing = 0;

diff --git a/services/itemrecorddisplay.pl b/services/itemrecorddisplay.pl
index f4bb384..2c2832f 100755 (executable)
--- a/services/itemrecorddisplay.pl
+++ b/services/itemrecorddisplay.pl
@@ -27,8 +27,7 @@ It uses PrepareItemrecordDisplay
 
 =cut
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use C4::Auth;

diff --git a/suggestion/suggestion.pl b/suggestion/suggestion.pl
index 94e6eab..98fcca4 100755 (executable)
--- a/suggestion/suggestion.pl
+++ b/suggestion/suggestion.pl
@@ -17,8 +17,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-#use warnings; FIXME - Bug 2505
+use Modern::Perl;
 require Exporter;
 use CGI qw ( -utf8 );
 use C4::Auth;    # get_template_and_user

diff --git a/tags/list.pl b/tags/list.pl
index 9e90670..8623278 100755 (executable)
--- a/tags/list.pl
+++ b/tags/list.pl
@@ -17,8 +17,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use warnings;
-use strict;
+use Modern::Perl;
 use CGI qw ( -utf8 );
 
 use C4::Auth qw(:DEFAULT check_cookie_auth);

diff --git a/tags/review.pl b/tags/review.pl
index f1484f1..353e741 100755 (executable)
--- a/tags/review.pl
+++ b/tags/review.pl
@@ -19,8 +19,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use warnings;
-use strict;
+use Modern::Perl;
 use Data::Dumper;
 use POSIX;
 use CGI qw ( -utf8 );

diff --git a/virtualshelves/sendshelf.pl b/virtualshelves/sendshelf.pl
index 9880efd..996c2f7 100755 (executable)
--- a/virtualshelves/sendshelf.pl
+++ b/virtualshelves/sendshelf.pl
@@ -17,8 +17,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-use strict;
-use warnings;
+use Modern::Perl;
 
 use CGI qw ( -utf8 );
 use Encode qw( encode );