@@ -, +, @@ missing --- C4/Accounts.pm | 3 +-- C4/Auth_with_ldap.pm | 3 +-- C4/AuthoritiesMarc/MARC21.pm | 3 +-- C4/AuthoritiesMarc/UNIMARC.pm | 3 +-- C4/BackgroundJob.pm | 3 +-- C4/Budgets.pm | 3 +-- C4/Circulation.pm | 4 +--- C4/Contract.pm | 2 -- C4/InstallAuth.pm | 3 +-- C4/Installer/UpgradeBackup.pm | 3 +-- C4/Items.pm | 3 +-- C4/Koha.pm | 3 +-- C4/Members.pm | 3 +-- C4/Members/AttributeTypes.pm | 3 +-- C4/Output.pm | 3 +-- C4/Overdues.pm | 3 +-- C4/Print.pm | 3 +-- C4/Record.pm | 6 ++---- C4/Reports.pm | 3 +-- C4/Reserves.pm | 3 +-- C4/Scheduler.pm | 3 +-- C4/Search.pm | 3 +-- C4/Search/PazPar2.pm | 3 +-- C4/Suggestions.pm | 4 +--- C4/TmplTokenType.pm | 3 +-- C4/XISBN.pm | 3 +-- misc/translator/TmplTokenizer.pm | 3 +-- misc/translator/VerboseWarnings.pm | 3 +-- 28 files changed, 28 insertions(+), 60 deletions(-) --- a/C4/Accounts.pm +++ a/C4/Accounts.pm @@ -18,8 +18,7 @@ package C4::Accounts; # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use C4::Context; use C4::Stats; use C4::Members; --- a/C4/Auth_with_ldap.pm +++ a/C4/Auth_with_ldap.pm @@ -17,8 +17,7 @@ package C4::Auth_with_ldap; # 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; use Carp; use C4::Debug; --- a/C4/AuthoritiesMarc/MARC21.pm +++ a/C4/AuthoritiesMarc/MARC21.pm @@ -17,8 +17,7 @@ package C4::AuthoritiesMarc::MARC21; # 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; use MARC::Record; =head1 NAME --- a/C4/AuthoritiesMarc/UNIMARC.pm +++ a/C4/AuthoritiesMarc/UNIMARC.pm @@ -17,8 +17,7 @@ package C4::AuthoritiesMarc::UNIMARC; # 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; =head1 NAME --- a/C4/BackgroundJob.pm +++ a/C4/BackgroundJob.pm @@ -18,8 +18,7 @@ package C4::BackgroundJob; # 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; use C4::Context; use C4::Auth qw/get_session/; use Digest::MD5; --- a/C4/Budgets.pm +++ a/C4/Budgets.pm @@ -17,8 +17,7 @@ package C4::Budgets; # 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; use C4::Context; use Koha::Database; use Koha::Patrons; --- a/C4/Circulation.pm +++ a/C4/Circulation.pm @@ -18,9 +18,7 @@ package C4::Circulation; # 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; use DateTime; use POSIX qw( floor ); use Koha::DateUtils; --- a/C4/Contract.pm +++ a/C4/Contract.pm @@ -18,8 +18,6 @@ package C4::Contract; # along with Koha; if not, see . use Modern::Perl; -use strict; -#use warnings; FIXME - Bug 2505 use C4::Context; use Koha::Database; --- a/C4/InstallAuth.pm +++ a/C4/InstallAuth.pm @@ -17,8 +17,7 @@ package C4::InstallAuth; # 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; use Digest::MD5 qw(md5_base64); use CGI::Session; use File::Spec; --- a/C4/Installer/UpgradeBackup.pm +++ a/C4/Installer/UpgradeBackup.pm @@ -17,8 +17,7 @@ package C4::Installer::UpgradeBackup; # 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; use File::Compare qw(compare); use Cwd qw(cwd); use File::Copy; --- a/C4/Items.pm +++ a/C4/Items.pm @@ -18,8 +18,7 @@ package C4::Items; # 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; use vars qw(@ISA @EXPORT); BEGIN { --- a/C4/Koha.pm +++ a/C4/Koha.pm @@ -20,8 +20,7 @@ package C4::Koha; # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use C4::Context; use Koha::Caches; --- a/C4/Members.pm +++ a/C4/Members.pm @@ -20,8 +20,7 @@ package C4::Members; # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use C4::Context; use String::Random qw( random_string ); use Scalar::Util qw( looks_like_number ); --- a/C4/Members/AttributeTypes.pm +++ a/C4/Members/AttributeTypes.pm @@ -17,8 +17,7 @@ package C4::Members::AttributeTypes; # 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; use C4::Context; --- a/C4/Output.pm +++ a/C4/Output.pm @@ -25,8 +25,7 @@ package C4::Output; # NOTE: I'm pretty sure this module is deprecated in favor of # templates. -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use URI::Escape; use Scalar::Util qw( looks_like_number ); --- a/C4/Overdues.pm +++ a/C4/Overdues.pm @@ -19,8 +19,7 @@ package C4::Overdues; # 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; use Date::Calc qw/Today Date_to_Days/; use Date::Manip qw/UnixDate/; use List::MoreUtils qw( uniq ); --- a/C4/Print.pm +++ a/C4/Print.pm @@ -17,8 +17,7 @@ package C4::Print; # 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; use C4::Context; use vars qw(@ISA @EXPORT); --- a/C4/Record.pm +++ a/C4/Record.pm @@ -18,10 +18,8 @@ package C4::Record; # # 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; # please specify in which methods a given module is used use MARC::Record; # marc2marcxml, marcxml2marc, changeEncoding --- a/C4/Reports.pm +++ a/C4/Reports.pm @@ -17,8 +17,7 @@ package C4::Reports; # 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; use CGI qw ( -utf8 ); use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); --- a/C4/Reserves.pm +++ a/C4/Reserves.pm @@ -21,8 +21,7 @@ package C4::Reserves; # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use C4::Accounts; use C4::Biblio; --- a/C4/Scheduler.pm +++ a/C4/Scheduler.pm @@ -17,8 +17,7 @@ package C4::Scheduler; # 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; use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); use C4::Context; --- a/C4/Search.pm +++ a/C4/Search.pm @@ -15,8 +15,7 @@ package C4::Search; # 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 C4::Context; use C4::Biblio; # GetMarcFromKohaField, GetBiblioData --- a/C4/Search/PazPar2.pm +++ a/C4/Search/PazPar2.pm @@ -17,8 +17,7 @@ package C4::Search::PazPar2; # 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; use LWP::UserAgent; use URI; --- a/C4/Suggestions.pm +++ a/C4/Suggestions.pm @@ -18,9 +18,7 @@ package C4::Suggestions; # 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; use CGI qw ( -utf8 ); use C4::Context; --- a/C4/TmplTokenType.pm +++ a/C4/TmplTokenType.pm @@ -17,8 +17,7 @@ package C4::TmplTokenType; # 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 vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); --- a/C4/XISBN.pm +++ a/C4/XISBN.pm @@ -17,6 +17,7 @@ package C4::XISBN; # You should have received a copy of the GNU General Public License # along with Koha; if not, see . +use Modern::Perl; use XML::Simple; #use LWP::Simple; use C4::Biblio; @@ -30,8 +31,6 @@ use Koha::Biblios; use Koha::SearchEngine; use Koha::SearchEngine::Search; -use strict; -#use warnings; FIXME - Bug 2505 use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); BEGIN { --- a/misc/translator/TmplTokenizer.pm +++ a/misc/translator/TmplTokenizer.pm @@ -1,7 +1,6 @@ package TmplTokenizer; -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use C4::TmplTokenType; use C4::TmplToken; use C4::TTParser; --- a/misc/translator/VerboseWarnings.pm +++ a/misc/translator/VerboseWarnings.pm @@ -1,7 +1,6 @@ package VerboseWarnings; -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; require Exporter; use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); --