gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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>
This commit is contained in:
Te Rauhina Jackson 2018-01-18 20:41:33 +00:00 committed by Jonathan Druart
parent 484fd322ab
commit d10513dfc0
15 changed files with 15 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
changelanguage.pl
View File

@ -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 );

3
debian/bd-to-depends vendored
View File

@ -1,7 +1,6 @@
#!/usr/bin/perl
use strict;
use warnings;
use Modern::Perl;
my @exclusions = (
'debhelper',

3
debian/build-git-snapshot vendored
View File

@ -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/;

3
debian/list-deps vendored
View File

@ -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;

3
docs/CAS/CASProxy/examples/koha_webservice.pl
View File

@ -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);

3
docs/CAS/CASProxy/examples/proxy_cas.pl
View File

@ -28,8 +28,7 @@
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use Authen::CAS::Client;

3
docs/CAS/CASProxy/examples/proxy_cas_callback.pl
View File

@ -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);

3
docs/CAS/CASProxy/examples/proxy_cas_data.pl
View File

@ -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);

3
help.pl
View File

@ -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;

3
koha_perl_deps.pl
View File

@ -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;

3
services/itemrecorddisplay.pl
View File

@ -27,8 +27,7 @@ It uses PrepareItemrecordDisplay
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;

3
suggestion/suggestion.pl
View File

@ -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

3
tags/list.pl
View File

@ -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);

3
tags/review.pl
View File

@ -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 );

3
virtualshelves/sendshelf.pl
View File

@ -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 );