Bugzilla – Attachment 70712 Details for
Bug 20019
use Modern::Perl in miscellaneous perl scripts
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug-20019 - use Modern::Perl in misc perl scripts
Bug-20019---use-ModernPerl-in-misc-perl-scripts.patch (text/plain), 7.14 KB, created by
Te Rauhina Jackson
on 2018-01-18 20:43:45 UTC
(
hide
)
Description:
Bug-20019 - use Modern::Perl in misc perl scripts
Filename:
MIME Type:
Creator:
Te Rauhina Jackson
Created:
2018-01-18 20:43:45 UTC
Size:
7.14 KB
patch
obsolete
>From 3cca87b04ae6d46b1e5818aafbf0e59b7a95691c Mon Sep 17 00:00:00 2001 >From: Te Rauhina Jackson <terauhina.jackson@gmail.com> >Date: Thu, 18 Jan 2018 20:41:33 +0000 >Subject: [PATCH] Bug-20019 - use Modern::Perl in misc perl scripts > >Test Plan: >Test Plan: >Check the following files have been updated from >use strict; >use warnings; >to >use Modern::Perl; > >services/itemrecorddisplay.pl >suggestion/suggestion.pl >tags/list.pl >tags/review.pl >virtualshelves/sendshelf.pl >help.pl >changelanguage.pl >koha_perl_deps.pl >debian/bd-to-depends >debian/build-git-snapshot >debian/list-deps >docs/CAS/CASProxy/examples/koha_webservice.pl >docs/CAS/CASProxy/examples/proxy_cas.pl >docs/CAS/CASProxy/examples/proxy_cas_callback.pl >docs/CAS/CASProxy/examples/proxy_cas_data.pl >--- > changelanguage.pl | 3 +-- > debian/bd-to-depends | 3 +-- > debian/build-git-snapshot | 3 +-- > debian/list-deps | 3 +-- > docs/CAS/CASProxy/examples/koha_webservice.pl | 3 +-- > docs/CAS/CASProxy/examples/proxy_cas.pl | 3 +-- > docs/CAS/CASProxy/examples/proxy_cas_callback.pl | 3 +-- > docs/CAS/CASProxy/examples/proxy_cas_data.pl | 3 +-- > help.pl | 3 +-- > koha_perl_deps.pl | 3 +-- > services/itemrecorddisplay.pl | 3 +-- > suggestion/suggestion.pl | 3 +-- > tags/list.pl | 3 +-- > tags/review.pl | 3 +-- > virtualshelves/sendshelf.pl | 3 +-- > 15 files changed, 15 insertions(+), 30 deletions(-) > >diff --git a/changelanguage.pl b/changelanguage.pl >index 360484c..3463c60 100755 >--- a/changelanguage.pl >+++ b/changelanguage.pl >@@ -15,8 +15,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 C4::Templates; > use CGI qw ( -utf8 ); >diff --git a/debian/bd-to-depends b/debian/bd-to-depends >index cff8b24..5bc755b 100755 >--- a/debian/bd-to-depends >+++ b/debian/bd-to-depends >@@ -1,7 +1,6 @@ > #!/usr/bin/perl > >-use strict; >-use warnings; >+use Modern::Perl; > > my @exclusions = ( > 'debhelper', >diff --git a/debian/build-git-snapshot b/debian/build-git-snapshot >index 1e1505d..cea5821 100755 >--- a/debian/build-git-snapshot >+++ b/debian/build-git-snapshot >@@ -21,8 +21,7 @@ > # Srdjan Jankovic <srdjan@catalyst.net.nz> > # Based on an sh version by Lars Wirzenius. > >-use strict; >-use warnings; >+use Modern::Perl; > > use Getopt::Long; > use POSIX qw/strftime/; >diff --git a/debian/list-deps b/debian/list-deps >index cba49c6..d599df8 100755 >--- a/debian/list-deps >+++ b/debian/list-deps >@@ -17,8 +17,7 @@ > # You should have received a copy of the GNU General Public License > # along with this program. If not, see <http://www.gnu.org/licenses/>. > >-use strict; >-use warnings; >+use Modern::Perl; > > use C4::Installer::PerlDependencies; > >diff --git a/docs/CAS/CASProxy/examples/koha_webservice.pl b/docs/CAS/CASProxy/examples/koha_webservice.pl >index 1fc33ba..dbaa19e 100755 >--- a/docs/CAS/CASProxy/examples/koha_webservice.pl >+++ b/docs/CAS/CASProxy/examples/koha_webservice.pl >@@ -32,8 +32,7 @@ The Proxy Ticket, needed for check_api_auth, that will try to make the CAS Serve > =cut > > use utf8; >-use strict; >-use warnings; >+use Modern::Perl; > binmode(STDOUT, ":utf8"); > > use C4::Auth qw(check_api_auth); >diff --git a/docs/CAS/CASProxy/examples/proxy_cas.pl b/docs/CAS/CASProxy/examples/proxy_cas.pl >index 407892b..2db8d93 100755 >--- a/docs/CAS/CASProxy/examples/proxy_cas.pl >+++ b/docs/CAS/CASProxy/examples/proxy_cas.pl >@@ -28,8 +28,7 @@ > > =cut > >-use strict; >-use warnings; >+use Modern::Perl; > use CGI qw ( -utf8 ); > use Authen::CAS::Client; > >diff --git a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl b/docs/CAS/CASProxy/examples/proxy_cas_callback.pl >index 52e58e2..4ee46b5 100755 >--- a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl >+++ b/docs/CAS/CASProxy/examples/proxy_cas_callback.pl >@@ -25,8 +25,7 @@ > > =cut > >-use strict; >-use warnings; >+use Modern::Perl; > use CGI qw ( -utf8 ); > use Authen::CAS::Client; > use Storable qw(nstore_fd); >diff --git a/docs/CAS/CASProxy/examples/proxy_cas_data.pl b/docs/CAS/CASProxy/examples/proxy_cas_data.pl >index ba4a138..a333f89 100755 >--- a/docs/CAS/CASProxy/examples/proxy_cas_data.pl >+++ b/docs/CAS/CASProxy/examples/proxy_cas_data.pl >@@ -30,8 +30,7 @@ This PGTIOU will allow us to retrive the matching PGTID > > =cut > >-use strict; >-use warnings; >+use Modern::Perl; > use CGI qw ( -utf8 ); > use Authen::CAS::Client; > use Storable qw(fd_retrieve); >diff --git a/help.pl b/help.pl >index ad86a2d..d549c23 100755 >--- a/help.pl >+++ b/help.pl >@@ -17,8 +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 C4::Templates; > use C4::Output; > # use C4::Auth; >diff --git a/koha_perl_deps.pl b/koha_perl_deps.pl >index 9ca2a14..cf68632 100755 >--- a/koha_perl_deps.pl >+++ b/koha_perl_deps.pl >@@ -9,8 +9,7 @@ use lib $FindBin::Bin; > > use C4::Installer::PerlModules; > >-use strict; >-use warnings; >+use Modern::Perl; > > my $help = 0; > my $missing = 0; >diff --git a/services/itemrecorddisplay.pl b/services/itemrecorddisplay.pl >index f4bb384..2c2832f 100755 >--- a/services/itemrecorddisplay.pl >+++ b/services/itemrecorddisplay.pl >@@ -27,8 +27,7 @@ It uses PrepareItemrecordDisplay > > =cut > >-use strict; >-use warnings; >+use Modern::Perl; > > use CGI qw ( -utf8 ); > use C4::Auth; >diff --git a/suggestion/suggestion.pl b/suggestion/suggestion.pl >index 94e6eab..98fcca4 100755 >--- a/suggestion/suggestion.pl >+++ b/suggestion/suggestion.pl >@@ -17,8 +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; FIXME - Bug 2505 >+use Modern::Perl; > require Exporter; > use CGI qw ( -utf8 ); > use C4::Auth; # get_template_and_user >diff --git a/tags/list.pl b/tags/list.pl >index 9e90670..8623278 100755 >--- a/tags/list.pl >+++ b/tags/list.pl >@@ -17,8 +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 warnings; >-use strict; >+use Modern::Perl; > use CGI qw ( -utf8 ); > > use C4::Auth qw(:DEFAULT check_cookie_auth); >diff --git a/tags/review.pl b/tags/review.pl >index f1484f1..353e741 100755 >--- a/tags/review.pl >+++ b/tags/review.pl >@@ -19,8 +19,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 warnings; >-use strict; >+use Modern::Perl; > use Data::Dumper; > use POSIX; > use CGI qw ( -utf8 ); >diff --git a/virtualshelves/sendshelf.pl b/virtualshelves/sendshelf.pl >index 9880efd..996c2f7 100755 >--- a/virtualshelves/sendshelf.pl >+++ b/virtualshelves/sendshelf.pl >@@ -17,8 +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 Encode qw( encode ); >-- >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 20019
:
70712
|
70902
|
71180