@@ -, +, @@ - Check that it now says 'use Modern::Perl;' and not 'use strict; use --- catalogue/MARCdetail.pl | 3 +-- catalogue/export.pl | 3 +-- catalogue/image.pl | 3 +-- catalogue/imageviewer.pl | 3 +-- catalogue/issuehistory.pl | 3 +-- catalogue/labeledMARCdetail.pl | 3 +-- catalogue/moredetail.pl | 3 +-- catalogue/search.pl | 3 +-- catalogue/showmarc.pl | 3 +-- catalogue/updateitem.pl | 3 +-- 10 files changed, 10 insertions(+), 20 deletions(-) --- a/catalogue/MARCdetail.pl +++ a/catalogue/MARCdetail.pl @@ -43,8 +43,7 @@ the items attached to the biblio =cut -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use CGI qw ( -utf8 ); use HTML::Entities; --- a/catalogue/export.pl +++ a/catalogue/export.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use C4::Record; use C4::Auth; --- a/catalogue/image.pl +++ a/catalogue/image.pl @@ -23,8 +23,7 @@ # # -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); #qw(:standard escapeHTML); use C4::Context; --- a/catalogue/imageviewer.pl +++ a/catalogue/imageviewer.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 C4::Auth; --- a/catalogue/issuehistory.pl +++ a/catalogue/issuehistory.pl @@ -16,8 +16,7 @@ # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; --- a/catalogue/labeledMARCdetail.pl +++ a/catalogue/labeledMARCdetail.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 HTML::Entities; use MARC::Record; --- a/catalogue/moredetail.pl +++ a/catalogue/moredetail.pl @@ -19,8 +19,7 @@ # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use C4::Koha; use CGI qw ( -utf8 ); use HTML::Entities; --- a/catalogue/search.pl +++ a/catalogue/search.pl @@ -132,8 +132,7 @@ Not yet completed... =cut -use strict; # always use -#use warnings; FIXME - Bug 2505 +use Modern::Perl; ## STEP 1. Load things that are used in both search page and # results page and decide which template to load, operations --- a/catalogue/showmarc.pl +++ a/catalogue/showmarc.pl @@ -20,8 +20,7 @@ # with Koha; if not, write to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. -use strict; -use warnings; +use Modern::Perl; # standard or CPAN modules used use CGI qw(:standard -utf8); --- a/catalogue/updateitem.pl +++ a/catalogue/updateitem.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 C4::Auth; use C4::Context; --