Bugzilla – Attachment 70649 Details for
Bug 19999
use Modern::Perl in Labels perl scripts
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 19999: Replacing 'use strict; use warnings;' with 'use Modern::Perl;'
Bug-19999-Replacing-use-strict-use-warnings-with-u.patch (text/plain), 5.67 KB, created by
Zoe Bennett
on 2018-01-17 23:06:50 UTC
(
hide
)
Description:
Bug 19999: Replacing 'use strict; use warnings;' with 'use Modern::Perl;'
Filename:
MIME Type:
Creator:
Zoe Bennett
Created:
2018-01-17 23:06:50 UTC
Size:
5.67 KB
patch
obsolete
>From 88916fb7b9bd3990ea52e1d98c179cb6b0a520fb Mon Sep 17 00:00:00 2001 >From: Zoe Bennett <zoebennett1308@gmail.com> >Date: Wed, 17 Jan 2018 23:00:28 +0000 >Subject: [PATCH] Bug 19999: Replacing 'use strict; use warnings;' with 'use > Modern::Perl;' > >Test Plan: >- Check that it now says 'use Modern::Perl;' and not 'use strict; use >warnings;' in the following labels perl scripts: > >label-create-csv.pl >label-create-pdf.pl >label-create-xml.pl >label-edit-batch.pl >label-edit-layout.pl >label-edit-profile.pl >label-edit-template.pl >label-home.pl >label-item-search.pl >label-print.pl >spinelabel-home.pl >spinelabel-print.pl >--- > labels/label-create-csv.pl | 3 +-- > labels/label-create-pdf.pl | 3 +-- > labels/label-create-xml.pl | 3 +-- > labels/label-edit-batch.pl | 3 +-- > labels/label-edit-layout.pl | 3 +-- > labels/label-edit-profile.pl | 3 +-- > labels/label-edit-template.pl | 3 +-- > labels/label-home.pl | 3 +-- > labels/label-item-search.pl | 3 +-- > labels/label-print.pl | 3 +-- > labels/spinelabel-home.pl | 3 +-- > labels/spinelabel-print.pl | 3 +-- > 12 files changed, 12 insertions(+), 24 deletions(-) > >diff --git a/labels/label-create-csv.pl b/labels/label-create-csv.pl >index 41dc778..eaa45fb 100755 >--- a/labels/label-create-csv.pl >+++ b/labels/label-create-csv.pl >@@ -18,8 +18,7 @@ > # 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/labels/label-create-pdf.pl b/labels/label-create-pdf.pl >index c15c7e7..edff024 100755 >--- a/labels/label-create-pdf.pl >+++ b/labels/label-create-pdf.pl >@@ -18,8 +18,7 @@ > # 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; >diff --git a/labels/label-create-xml.pl b/labels/label-create-xml.pl >index bed86e2..d0369db 100755 >--- a/labels/label-create-xml.pl >+++ b/labels/label-create-xml.pl >@@ -18,8 +18,7 @@ > # along with Koha; if not, see <http://www.gnu.org/licenses>. > # > >-use strict; >-use warnings; >+use Modern::Perl; > > use CGI qw ( -utf8 ); > use XML::Simple; >diff --git a/labels/label-edit-batch.pl b/labels/label-edit-batch.pl >index 5252213..664c0b5 100755 >--- a/labels/label-edit-batch.pl >+++ b/labels/label-edit-batch.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/labels/label-edit-layout.pl b/labels/label-edit-layout.pl >index c1aafd4..e14135a 100755 >--- a/labels/label-edit-layout.pl >+++ b/labels/label-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 POSIX; >diff --git a/labels/label-edit-profile.pl b/labels/label-edit-profile.pl >index e5ed353..07e34ca 100755 >--- a/labels/label-edit-profile.pl >+++ b/labels/label-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/labels/label-edit-template.pl b/labels/label-edit-template.pl >index bcee714..d4afc5e 100755 >--- a/labels/label-edit-template.pl >+++ b/labels/label-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 ); > >diff --git a/labels/label-home.pl b/labels/label-home.pl >index ca581ac..b5b361c 100755 >--- a/labels/label-home.pl >+++ b/labels/label-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/labels/label-item-search.pl b/labels/label-item-search.pl >index d93c922..c0a7e8f 100755 >--- a/labels/label-item-search.pl >+++ b/labels/label-item-search.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 vars qw($debug $cgi_debug); > > use CGI qw ( -utf8 ); >diff --git a/labels/label-print.pl b/labels/label-print.pl >index ced9e82..e8a42fa 100755 >--- a/labels/label-print.pl >+++ b/labels/label-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 Data::Dumper; >diff --git a/labels/spinelabel-home.pl b/labels/spinelabel-home.pl >index 11b3a78..dcb9d12 100755 >--- a/labels/spinelabel-home.pl >+++ b/labels/spinelabel-home.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 warnings; >-use strict; >+use Modern::Perl; > use CGI qw ( -utf8 ); > use C4::Auth; > use C4::Output; >diff --git a/labels/spinelabel-print.pl b/labels/spinelabel-print.pl >index 08970d1..d1e81ea 100755 >--- a/labels/spinelabel-print.pl >+++ b/labels/spinelabel-print.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 warnings; >-use strict; >+use Modern::Perl; > use CGI qw ( -utf8 ); > use C4::Auth; > use C4::Output; >-- >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 19999
: 70649