Bugzilla – Attachment 70680 Details for
Bug 20010
use Modern::Perl in Patroncards perl scripts
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 20010: use Modern::Perl in Patroncards perl scripts
Bug-20010-use-ModernPerl-in-Patroncards-perl-scrip.patch (text/plain), 4.29 KB, created by
Grace
on 2018-01-18 04:01:36 UTC
(
hide
)
Description:
Bug 20010: use Modern::Perl in Patroncards perl scripts
Filename:
MIME Type:
Creator:
Grace
Created:
2018-01-18 04:01:36 UTC
Size:
4.29 KB
patch
obsolete
>From 474d8dad1f202d723ad0dceb3f282562cde29a4a Mon Sep 17 00:00:00 2001 >From: Grace Smyth <gracesmythh@gmail.com> >Date: Thu, 18 Jan 2018 03:58:42 +0000 >Subject: [PATCH] Bug 20010: use Modern::Perl in Patroncards perl scripts > >Test Plan: >Check the following files have been updated from >use strict; >use warnings; >to >use Modern::Perl; > >create-pdf.pl >edit-batch.pl >edit-layout.pl >edit-profile.pl >edit-template.pl >home.pl >image-manage.pl >manage.pl >print.pl >--- > 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(-) > >diff --git a/patroncards/create-pdf.pl b/patroncards/create-pdf.pl >index 6f22049..3bd28ba 100755 >--- a/patroncards/create-pdf.pl >+++ b/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 <http://www.gnu.org/licenses>. > >-use strict; >-use warnings; >- >+use Modern::Perl; > use CGI qw ( -utf8 ); > use C4::Auth; > use Graphics::Magick; >diff --git a/patroncards/edit-batch.pl b/patroncards/edit-batch.pl >index 5641007..bd06aab 100755 >--- a/patroncards/edit-batch.pl >+++ b/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 <http://www.gnu.org/licenses>. > >-use strict; >-use warnings; >+ >+use Modern::Perl; > use vars qw($debug); > > use CGI qw ( -utf8 ); >diff --git a/patroncards/edit-layout.pl b/patroncards/edit-layout.pl >index d244640..3c76129 100755 >--- a/patroncards/edit-layout.pl >+++ b/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 <http://www.gnu.org/licenses>. > >-use strict; >-use warnings; >+use Modern::Perl; > > use CGI qw ( -utf8 ); > use Text::CSV_XS; >diff --git a/patroncards/edit-profile.pl b/patroncards/edit-profile.pl >index 4b0769c..d84fb19 100755 >--- a/patroncards/edit-profile.pl >+++ b/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 <http://www.gnu.org/licenses>. > >-use strict; >-use warnings; >+use Modern::Perl; > > use CGI qw ( -utf8 ); > >diff --git a/patroncards/edit-template.pl b/patroncards/edit-template.pl >index f37757c..3712a6f 100755 >--- a/patroncards/edit-template.pl >+++ b/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 <http://www.gnu.org/licenses>. > >-use strict; >-use warnings; >+use Modern::Perl; > > use CGI qw ( -utf8 ); > use autouse 'Data::Dumper' => qw(Dumper); >diff --git a/patroncards/home.pl b/patroncards/home.pl >index b88221f..cb8e7a5 100755 >--- a/patroncards/home.pl >+++ b/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 <http://www.gnu.org/licenses>. > >-use strict; >-use warnings; >+use Modern::Perl; > > use CGI qw ( -utf8 ); > >diff --git a/patroncards/image-manage.pl b/patroncards/image-manage.pl >index 514ea94..2c08123 100755 >--- a/patroncards/image-manage.pl >+++ b/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; >diff --git a/patroncards/manage.pl b/patroncards/manage.pl >index 837fccd..96f8158 100755 >--- a/patroncards/manage.pl >+++ b/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 <http://www.gnu.org/licenses>. > >-use strict; >-use warnings; >+use Modern::Perl; > use vars qw($debug); > > use CGI qw ( -utf8 ); >diff --git a/patroncards/print.pl b/patroncards/print.pl >index c57be1d..8992038 100755 >--- a/patroncards/print.pl >+++ b/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 <http://www.gnu.org/licenses>. > >-use strict; >-use warnings; >+use Modern::Perl; > > use CGI qw ( -utf8 ); > use autouse 'Data::Dumper' => qw(Dumper); >-- >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 20010
:
70680
|
70888
|
70891
|
71189