@@ -, +, @@ --- patroncards/create-pdf.pl | 4 +--- patroncards/edit-batch.pl | 4 ++-- patroncards/edit-layout.pl | 3 +-- patroncards/edit-profile.pl | 3 +-- patroncards/edit-template.pl | 3 +-- patroncards/home.pl | 3 +-- patroncards/image-manage.pl | 3 +-- patroncards/manage.pl | 3 +-- patroncards/print.pl | 3 +-- 9 files changed, 10 insertions(+), 19 deletions(-) --- a/patroncards/create-pdf.pl +++ a/patroncards/create-pdf.pl @@ -17,9 +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 Graphics::Magick; --- a/patroncards/edit-batch.pl +++ a/patroncards/edit-batch.pl @@ -18,8 +18,8 @@ # 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 vars qw($debug); use CGI qw ( -utf8 ); --- a/patroncards/edit-layout.pl +++ a/patroncards/edit-layout.pl @@ -18,8 +18,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 Text::CSV_XS; --- a/patroncards/edit-profile.pl +++ a/patroncards/edit-profile.pl @@ -18,8 +18,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 ); --- a/patroncards/edit-template.pl +++ a/patroncards/edit-template.pl @@ -18,8 +18,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 autouse 'Data::Dumper' => qw(Dumper); --- a/patroncards/home.pl +++ a/patroncards/home.pl @@ -18,8 +18,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 ); --- a/patroncards/image-manage.pl +++ a/patroncards/image-manage.pl @@ -1,7 +1,6 @@ #!/usr/bin/perl -use warnings; -use strict; +use Modern::Perl; use CGI qw ( -utf8 ); use Graphics::Magick; --- a/patroncards/manage.pl +++ a/patroncards/manage.pl @@ -18,8 +18,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 vars qw($debug); use CGI qw ( -utf8 ); --- a/patroncards/print.pl +++ a/patroncards/print.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 autouse 'Data::Dumper' => qw(Dumper); --