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 <[email protected]> Signed-off-by: Katrin Fischer <[email protected]> Signed-off-by: Jonathan Druart <[email protected]>
Koha-Community · Feb 5, 2018 · d10513d · d10513d
1 parent 484fd32
commit d10513d
Show file tree

Hide file tree

Showing 15 changed files with 15 additions and 30 deletions.
diff --git 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
@@ -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
@@ -21,8 +21,7 @@
 #   Srdjan Jankovic <[email protected]>
 # 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
@@ -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
@@ -32,8 +32,7 @@ =head1 CGI PARAMETERS
 =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
@@ -28,8 +28,7 @@ =head1 DESCRIPTION
 
 =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
@@ -25,8 +25,7 @@ =head1 DESCRIPTION
 
 =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
@@ -30,8 +30,7 @@ =head1 CGI PARAMETERS
 
 =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
@@ -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
@@ -9,8 +9,7 @@
 
 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
@@ -27,8 +27,7 @@ =head1 DESCRIPTION
 
 =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
@@ -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
@@ -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
@@ -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
@@ -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 );