Browse Source

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>
18.05.x
Te Rauhina Jackson 4 years ago
committed by Jonathan Druart
parent
commit
d10513dfc0
  1. 3
      changelanguage.pl
  2. 3
      debian/bd-to-depends
  3. 3
      debian/build-git-snapshot
  4. 3
      debian/list-deps
  5. 3
      docs/CAS/CASProxy/examples/koha_webservice.pl
  6. 3
      docs/CAS/CASProxy/examples/proxy_cas.pl
  7. 3
      docs/CAS/CASProxy/examples/proxy_cas_callback.pl
  8. 3
      docs/CAS/CASProxy/examples/proxy_cas_data.pl
  9. 3
      help.pl
  10. 3
      koha_perl_deps.pl
  11. 3
      services/itemrecorddisplay.pl
  12. 3
      suggestion/suggestion.pl
  13. 3
      tags/list.pl
  14. 3
      tags/review.pl
  15. 3
      virtualshelves/sendshelf.pl

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

3
debian/bd-to-depends

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

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

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

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

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

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

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

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

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

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

3
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

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

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

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

Loading…
Cancel
Save