Bug 20000: Use Modern::Perl in installer scripts
To test:
Check that we are using Modern::Perl when strict *and* warnings were used before,
and commented lines and FIXMEs have been removed from the rest, out of
files listed below.
data/mysql/backfill_statistics.pl
data/mysql/labels_upgrade.pl
data/mysql/patroncards_upgrade.pl
data/mysql/update22to30.pl
data/mysql/updatedatabase.pl
externalmodules.pl
html-template-to-template-toolkit.pl
install.pl
Sponsored-by: Catalyst IT
Signed-off-by: Maryse Simard <maryse.simard@inlibro.com>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
(cherry picked from commit 20a38ee50e)
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
This commit is contained in:
parent
9199083de8
commit
99cd91ad2d
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -17,9 +17,6 @@
|
|||
# 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 C4::Context;
|
||||
|
||||
my $sth = C4::Context->dbh;
|
||||
|
|
|
|||
|
|
@ -17,9 +17,6 @@
|
|||
# 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 C4::Context;
|
||||
|
||||
my $sth = C4::Context->dbh;
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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';
|
||||
|
||||
|
|
|
|||
|
|
@ -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');
|
||||
|
|
|
|||
|
|
@ -1,7 +1,6 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use Modern::Perl;
|
||||
use Carp;
|
||||
use Data::Dumper;
|
||||
|
||||
|
|
|
|||
|
|
@ -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 diagnostics;
|
||||
|
||||
use C4::InstallAuth;
|
||||
|
|
|
|||
Loading…
Reference in New Issue