@@ -, +, @@ --- changelanguage.pl | 3 +-- debian/bd-to-depends | 3 +-- debian/build-git-snapshot | 3 +-- debian/list-deps | 3 +-- docs/CAS/CASProxy/examples/koha_webservice.pl | 3 +-- docs/CAS/CASProxy/examples/proxy_cas.pl | 3 +-- docs/CAS/CASProxy/examples/proxy_cas_callback.pl | 3 +-- docs/CAS/CASProxy/examples/proxy_cas_data.pl | 3 +-- help.pl | 3 +-- koha_perl_deps.pl | 3 +-- services/itemrecorddisplay.pl | 3 +-- suggestion/suggestion.pl | 3 +-- tags/list.pl | 3 +-- tags/review.pl | 3 +-- virtualshelves/sendshelf.pl | 3 +-- 15 files changed, 15 insertions(+), 30 deletions(-) --- a/changelanguage.pl +++ a/changelanguage.pl @@ -15,8 +15,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use C4::Templates; use CGI qw ( -utf8 ); --- a/debian/bd-to-depends +++ a/debian/bd-to-depends @@ -1,7 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; my @exclusions = ( 'debhelper', --- a/debian/build-git-snapshot +++ a/debian/build-git-snapshot @@ -21,8 +21,7 @@ # Srdjan Jankovic # Based on an sh version by Lars Wirzenius. -use strict; -use warnings; +use Modern::Perl; use Getopt::Long; use POSIX qw/strftime/; --- a/debian/list-deps +++ a/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 . -use strict; -use warnings; +use Modern::Perl; use C4::Installer::PerlDependencies; --- a/docs/CAS/CASProxy/examples/koha_webservice.pl +++ a/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); --- a/docs/CAS/CASProxy/examples/proxy_cas.pl +++ a/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; --- a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl +++ a/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); --- a/docs/CAS/CASProxy/examples/proxy_cas_data.pl +++ a/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); --- a/help.pl +++ a/help.pl @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use C4::Templates; use C4::Output; # use C4::Auth; --- a/koha_perl_deps.pl +++ a/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; --- a/services/itemrecorddisplay.pl +++ a/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; --- a/suggestion/suggestion.pl +++ a/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 . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; require Exporter; use CGI qw ( -utf8 ); use C4::Auth; # get_template_and_user --- a/tags/list.pl +++ a/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 . -use warnings; -use strict; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw(:DEFAULT check_cookie_auth); --- a/tags/review.pl +++ a/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 . -use warnings; -use strict; +use Modern::Perl; use Data::Dumper; use POSIX; use CGI qw ( -utf8 ); --- a/virtualshelves/sendshelf.pl +++ a/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 . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use Encode qw( encode ); --