@@ -, +, @@ --- authorities/auth_finder.pl | 3 +-- authorities/authorities-home.pl | 3 +-- authorities/authorities-list.pl | 4 ++-- authorities/authorities.pl | 4 ++-- authorities/blinddetail-biblio-search.pl | 3 +-- authorities/detail-biblio-search.pl | 4 +--- authorities/detail.pl | 4 +--- authorities/export.pl | 3 +-- authorities/merge.pl | 4 ++-- authorities/merge_ajax.pl | 3 +-- 10 files changed, 13 insertions(+), 22 deletions(-) --- a/authorities/auth_finder.pl +++ a/authorities/auth_finder.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; +Modern::Perl use CGI qw ( -utf8 ); use C4::Output; --- a/authorities/authorities-home.pl +++ a/authorities/authorities-home.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; +Modern::Perl use CGI qw ( -utf8 ); use URI::Escape; --- a/authorities/authorities-list.pl +++ a/authorities/authorities-list.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +Modern::Perl + use C4::Context; use C4::AuthoritiesMarc; use utf8; --- a/authorities/authorities.pl +++ a/authorities/authorities.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; +Modern::Perl + use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/authorities/blinddetail-biblio-search.pl +++ a/authorities/blinddetail-biblio-search.pl @@ -36,8 +36,7 @@ parameters tables. =cut -use strict; -use warnings; +Modern::Perl use C4::AuthoritiesMarc; use C4::Auth; --- a/authorities/detail-biblio-search.pl +++ a/authorities/detail-biblio-search.pl @@ -36,9 +36,7 @@ parameters tables. =cut - -use strict; -use warnings; +Modern::Perl use C4::AuthoritiesMarc; use C4::Auth; --- a/authorities/detail.pl +++ a/authorities/detail.pl @@ -36,9 +36,7 @@ parameters tables. =cut - -use strict; -use warnings; +Modern::Perl use C4::AuthoritiesMarc; use C4::Auth; --- a/authorities/export.pl +++ a/authorities/export.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl -use strict; -use warnings; +Modern::Perl use C4::Record; use C4::Auth; --- a/authorities/merge.pl +++ a/authorities/merge.pl @@ -17,8 +17,8 @@ # 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; +Modern::Perl + use CGI qw ( -utf8 ); use C4::Output; use C4::Auth; --- a/authorities/merge_ajax.pl +++ a/authorities/merge_ajax.pl @@ -1,7 +1,6 @@ #!/usr/bin/perl -use strict; -use warnings; +Modern::Perl use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before CGI parses the POST request --