Commit d10513df authored by Te Rauhina Jackson's avatar Te Rauhina Jackson Committed by joubu

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: 's avatarJon Knight <J.P.Knight@lboro.ac.uk>
Signed-off-by: Katrin Fischer's avatarKatrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: joubu's avatarJonathan Druart <jonathan.druart@bugs.koha-community.org>
parent 484fd322
......@@ -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 );
......
#!/usr/bin/perl
use strict;
use warnings;
use Modern::Perl;
my @exclusions = (
'debhelper',
......
......@@ -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/;
......
......@@ -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;
......
......@@ -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);
......
......@@ -28,8 +28,7 @@
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use Authen::CAS::Client;
......
......@@ -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);
......
......@@ -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);
......
......@@ -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;
......
......@@ -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;
......
......@@ -27,8 +27,7 @@ It uses PrepareItemrecordDisplay
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
......
......@@ -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
......
......@@ -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);
......
......@@ -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 );
......
......@@ -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 );
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment