From a3cbaf5991c50ec49f142577475715a70a357dca Mon Sep 17 00:00:00 2001 From: Eden Bacani Date: Wed, 20 Jan 2021 03:30:47 +0000 Subject: [PATCH] Bug 27483: Replaces use strict; and use warnings; with Modern::Perl Test Plan 1. check on files below that use strict; and use warings; do not exist 2. check on files below that Modern::Perl exists misc/batchCompareMARCvsFrameworks.pl misc/batchDeleteUnusedSubfields.pl misc/batchImportMARCWithBiblionumbers.pl misc/batchRebuildBiblioTables.pl misc/cronjobs/build_browser_and_cloud.pl misc/exportauth.pl misc/kohalib.pl misc/translator/tmpl_process3.pl --- misc/batchCompareMARCvsFrameworks.pl | 4 ++-- misc/batchDeleteUnusedSubfields.pl | 2 +- misc/batchImportMARCWithBiblionumbers.pl | 4 ++-- misc/batchRebuildBiblioTables.pl | 4 ++-- misc/cronjobs/build_browser_and_cloud.pl | 4 ++-- misc/exportauth.pl | 4 ++-- misc/kohalib.pl | 4 ++-- misc/translator/tmpl_process3.pl | 4 ++-- 8 files changed, 15 insertions(+), 15 deletions(-) diff --git a/misc/batchCompareMARCvsFrameworks.pl b/misc/batchCompareMARCvsFrameworks.pl index af8a66796e..b65f0a8ff6 100755 --- a/misc/batchCompareMARCvsFrameworks.pl +++ b/misc/batchCompareMARCvsFrameworks.pl @@ -2,8 +2,8 @@ # small script that dumps an iso2709 file. -use strict; -#use warnings; FIXME - Bug 2505 +Modern::Perl; +#Modern::Perl; FIXME - Bug 2505 BEGIN { # find Koha's Perl modules # test carefully before changing this diff --git a/misc/batchDeleteUnusedSubfields.pl b/misc/batchDeleteUnusedSubfields.pl index a80d4fdd6f..093e650cb4 100755 --- a/misc/batchDeleteUnusedSubfields.pl +++ b/misc/batchDeleteUnusedSubfields.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl # small script that rebuilds the non-MARC DB -use strict; +Modern::Perl; #use warnings; FIXME - Bug 2505 BEGIN { # find Koha's Perl modules diff --git a/misc/batchImportMARCWithBiblionumbers.pl b/misc/batchImportMARCWithBiblionumbers.pl index f8a12b5c5c..c20880aec1 100755 --- a/misc/batchImportMARCWithBiblionumbers.pl +++ b/misc/batchImportMARCWithBiblionumbers.pl @@ -1,8 +1,8 @@ #!/usr/bin/perl # load records that already have biblionumber set into a koha system # Written by TG on 10/04/2006 -use strict; -#use warnings; FIXME - Bug 2505 +Modern::Perl; +#Modern:Perl; FIXME - Bug 2505 BEGIN { # find Koha's Perl modules # test carefully before changing this diff --git a/misc/batchRebuildBiblioTables.pl b/misc/batchRebuildBiblioTables.pl index edc7c16d33..8941125107 100755 --- a/misc/batchRebuildBiblioTables.pl +++ b/misc/batchRebuildBiblioTables.pl @@ -2,8 +2,8 @@ # Small script that rebuilds the non-MARC DB # Formerly named rebuildnonmarc.pl -use strict; -#use warnings; FIXME - Bug 2505 +Modern::Perl; +#Modern::Perl; FIXME - Bug 2505 BEGIN { # find Koha's Perl modules diff --git a/misc/cronjobs/build_browser_and_cloud.pl b/misc/cronjobs/build_browser_and_cloud.pl index ccf3ddfa2f..a7e8646d24 100755 --- a/misc/cronjobs/build_browser_and_cloud.pl +++ b/misc/cronjobs/build_browser_and_cloud.pl @@ -1,8 +1,8 @@ #!/usr/bin/perl # small script that builds the tag cloud -use strict; -#use warnings; FIXME - Bug 2505 +Modern::Perl; +#Modern:Perl; FIXME - Bug 2505 BEGIN { # find Koha's Perl modules # test carefully before changing this diff --git a/misc/exportauth.pl b/misc/exportauth.pl index c036b17063..b9dbbc45fc 100755 --- a/misc/exportauth.pl +++ b/misc/exportauth.pl @@ -3,8 +3,8 @@ #MARC21 format from the command line. # -use strict; -#use warnings; FIXME - Bug 2505 +Modern::Perl; +#Modern::Perl; FIXME - Bug 2505 BEGIN { # find Koha's Perl modules # test carefully before changing this diff --git a/misc/kohalib.pl b/misc/kohalib.pl index 6c20190e66..3a3f68b294 100755 --- a/misc/kohalib.pl +++ b/misc/kohalib.pl @@ -38,8 +38,8 @@ # } # -use strict; -#use warnings; FIXME - Bug 2505 +Modern::Perl; +#Modern::Perl; FIXME - Bug 2505 my $module_dir; BEGIN { diff --git a/misc/translator/tmpl_process3.pl b/misc/translator/tmpl_process3.pl index 3c04618915..970ab2fa16 100755 --- a/misc/translator/tmpl_process3.pl +++ b/misc/translator/tmpl_process3.pl @@ -14,8 +14,8 @@ using gettext-compatible translation files =cut -use strict; -#use warnings; FIXME - Bug 2505 +Modern::Perl; +#Modern::Perl; FIXME - Bug 2505 use File::Basename; use Getopt::Long; use Locale::PO; -- 2.11.0