Bugzilla – Attachment 70675 Details for
Bug 19994
use Modern::Perl in Authorities perl scripts
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 19994: use Modern::Perl in Authorities perl scripts
Bug-19994-use-ModernPerl-in-Authorities-perl-scrip.patch (text/plain), 3.90 KB, created by
Grace
on 2018-01-18 03:44:13 UTC
(
hide
)
Description:
Bug 19994: use Modern::Perl in Authorities perl scripts
Filename:
MIME Type:
Creator:
Grace
Created:
2018-01-18 03:44:13 UTC
Size:
3.90 KB
patch
obsolete
>From 4d53f3b14c605e37bea88fdd10bfd25d19edddbb Mon Sep 17 00:00:00 2001 >From: Grace Smyth <gracesmythh@gmail.com> >Date: Thu, 18 Jan 2018 03:42:25 +0000 >Subject: [PATCH] Bug 19994: use Modern::Perl in Authorities perl scripts > >Test Case: >Check the following files have been updated from >use strict; >use warnings; >to >use Modern::Perl; > >auth_finder.pl >authorities-home.pl >authorities-list.pl >authorities.pl >blinddetail-biblio-search.pl >detail-biblio-search.pl >detail.pl >export.pl >merge.pl >merge_ajax.pl >--- > authorities/auth_finder.pl | 4 +--- > authorities/authorities-home.pl | 4 +--- > authorities/authorities-list.pl | 3 +-- > authorities/authorities.pl | 3 +-- > authorities/blinddetail-biblio-search.pl | 4 +--- > authorities/detail.pl | 4 +--- > authorities/merge.pl | 3 +-- > authorities/merge_ajax.pl | 4 +--- > 8 files changed, 8 insertions(+), 21 deletions(-) > >diff --git a/authorities/auth_finder.pl b/authorities/auth_finder.pl >index b484f03..7ebd116 100755 >--- a/authorities/auth_finder.pl >+++ b/authorities/auth_finder.pl >@@ -18,9 +18,7 @@ > # You should have received a copy of the GNU General Public License > # along with Koha; if not, see <http://www.gnu.org/licenses>. > >-use strict; >-use warnings; >- >+use Modern::Perl; > use CGI qw ( -utf8 ); > use C4::Output; > use C4::Auth; >diff --git a/authorities/authorities-home.pl b/authorities/authorities-home.pl >index d9c5ac8..2edaeaf 100755 >--- a/authorities/authorities-home.pl >+++ b/authorities/authorities-home.pl >@@ -17,9 +17,7 @@ > # You should have received a copy of the GNU General Public License > # along with Koha; if not, see <http://www.gnu.org/licenses>. > >-use strict; >-use warnings; >- >+use Modern::Perl; > use CGI qw ( -utf8 ); > use URI::Escape; > use C4::Auth; >diff --git a/authorities/authorities-list.pl b/authorities/authorities-list.pl >index 0afa5e7..17991bc 100755 >--- a/authorities/authorities-list.pl >+++ b/authorities/authorities-list.pl >@@ -1,6 +1,5 @@ > #!/usr/bin/perl >-use strict; >-use warnings; >+use Modern::Perl; > use C4::Context; > use C4::AuthoritiesMarc; > use utf8; >diff --git a/authorities/authorities.pl b/authorities/authorities.pl >index 84fba09..d3ae6d3 100755 >--- a/authorities/authorities.pl >+++ b/authorities/authorities.pl >@@ -18,8 +18,7 @@ > # You should have received a copy of the GNU General Public License > # along with Koha; if not, see <http://www.gnu.org/licenses>. > >-use strict; >-use warnings; >+use Modern::Perl; > use CGI qw ( -utf8 ); > use C4::Auth; > use C4::Output; >diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl >index 9e7930d..8e3639c 100755 >--- a/authorities/blinddetail-biblio-search.pl >+++ b/authorities/blinddetail-biblio-search.pl >@@ -36,9 +36,7 @@ parameters tables. > > =cut > >-use strict; >-use warnings; >- >+use Modern::Perl; > use C4::AuthoritiesMarc; > use C4::Auth; > use C4::Context; >diff --git a/authorities/detail.pl b/authorities/detail.pl >index 8dd4b77..72e6f66 100755 >--- a/authorities/detail.pl >+++ b/authorities/detail.pl >@@ -37,9 +37,7 @@ parameters tables. > =cut > > >-use strict; >-use warnings; >- >+use Modern::Perl; > use C4::AuthoritiesMarc; > use C4::Auth; > use C4::Context; >diff --git a/authorities/merge.pl b/authorities/merge.pl >index 9f72541..0d39249 100755 >--- a/authorities/merge.pl >+++ b/authorities/merge.pl >@@ -17,8 +17,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; > use CGI qw ( -utf8 ); > use C4::Output; > use C4::Auth; >diff --git a/authorities/merge_ajax.pl b/authorities/merge_ajax.pl >index 39796b0..7b39877 100755 >--- a/authorities/merge_ajax.pl >+++ b/authorities/merge_ajax.pl >@@ -1,8 +1,6 @@ > #!/usr/bin/perl > >-use strict; >-use warnings; >- >+use Modern::Perl; > use CGI qw ( -utf8 ); > use CGI::Cookie; # need to check cookies before CGI parses the POST request > use JSON; >-- >2.1.4
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 19994
:
70661
|
70675
|
84109
|
84178
|
84255