@@ -, +, @@ --- installer/data/mysql/backfill_statistics.pl | 3 +-- installer/data/mysql/labels_upgrade.pl | 3 --- installer/data/mysql/patroncards_upgrade.pl | 3 --- installer/data/mysql/update22to30.pl | 1 - installer/data/mysql/updatedatabase.pl | 3 +-- installer/externalmodules.pl | 5 ++--- installer/html-template-to-template-toolkit.pl | 3 +-- installer/install.pl | 3 +-- 8 files changed, 6 insertions(+), 18 deletions(-) --- a/installer/data/mysql/backfill_statistics.pl +++ a/installer/data/mysql/backfill_statistics.pl @@ -3,8 +3,7 @@ # Part of the Koha Library Software www.koha-community.org # Licensed under the GPL. -use strict; -use warnings; +use Modern::Perl; # CPAN modules use DBI; --- a/installer/data/mysql/labels_upgrade.pl +++ a/installer/data/mysql/labels_upgrade.pl @@ -17,9 +17,6 @@ # 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 C4::Context; my $sth = C4::Context->dbh; --- a/installer/data/mysql/patroncards_upgrade.pl +++ a/installer/data/mysql/patroncards_upgrade.pl @@ -17,9 +17,6 @@ # 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 C4::Context; my $sth = C4::Context->dbh; --- a/installer/data/mysql/update22to30.pl +++ a/installer/data/mysql/update22to30.pl @@ -12,7 +12,6 @@ # NOTE: If you do something more than once in here, make it table driven. use strict; -#use warnings; FIXME - Bug 2505 # CPAN modules use DBI; --- a/installer/data/mysql/updatedatabase.pl +++ a/installer/data/mysql/updatedatabase.pl @@ -27,8 +27,7 @@ # NOTE: Please keep the version in kohaversion.pl up-to-date! -use strict; -use warnings; +use Modern::Perl; use feature 'say'; --- a/installer/externalmodules.pl +++ a/installer/externalmodules.pl @@ -4,10 +4,9 @@ # It provides you not only the list of modules BUT ALSO the files that uses those modules. # utf8 or warnings or other lib use are not taken into account at the moment. - -use strict; -use warnings; +use Modern::Perl; use C4::Context; + my $dir=C4::Context->config('intranetdir'); qx(grep -r "^ *use" $dir | grep -v "C4\|strict\|vars" >/tmp/modulesKoha.log); $dir=C4::Context->config('opacdir'); --- a/installer/html-template-to-template-toolkit.pl +++ a/installer/html-template-to-template-toolkit.pl @@ -1,7 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +use Modern::Perl; use Carp; use Data::Dumper; --- a/installer/install.pl +++ a/installer/install.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 diagnostics; use C4::InstallAuth; --