Attachment 70656 Details for Bug 19995 – Bug 19995: Replacing 'use strict; use warnings;' with 'use Modern::Perl;'

[patch] Bug 19995: Replacing 'use strict; use warnings;' with 'use Modern::Perl;'

Bug-19995-Replacing-use-strict-use-warnings-with-u.patch (text/plain), 4.52 KB, created by Zoe Bennett on 2018-01-18 00:48:35 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Zoe Bennett

Created: 2018-01-18 00:48:35 UTC

Size: 4.52 KB

patch

obsolete

>From 40dc57bc84cc1d6337eb47d6bce199e05ad7a8bd Mon Sep 17 00:00:00 2001
>From: Zoe Bennett <zoebennett1308@gmail.com>
>Date: Thu, 18 Jan 2018 00:45:11 +0000
>Subject: [PATCH] Bug 19995: 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 catalogue perl scripts.
>
>MARCdetail.pl
>export.pl
>image.pl
>imageviewer.pl
>issuehistory.pl
>labeledMARCdetail.pl
>moredetail.pl
>search.pl
>showmarc.pl
>updateitem.pl
>---
> catalogue/MARCdetail.pl        | 3 +--
> catalogue/export.pl            | 3 +--
> catalogue/image.pl             | 3 +--
> catalogue/imageviewer.pl       | 3 +--
> catalogue/issuehistory.pl      | 3 +--
> catalogue/labeledMARCdetail.pl | 3 +--
> catalogue/moredetail.pl        | 3 +--
> catalogue/search.pl            | 3 +--
> catalogue/showmarc.pl          | 3 +--
> catalogue/updateitem.pl        | 3 +--
> 10 files changed, 10 insertions(+), 20 deletions(-)
>
>diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl
>index 6474f3e..8940471 100755
>--- a/catalogue/MARCdetail.pl
>+++ b/catalogue/MARCdetail.pl
>@@ -43,8 +43,7 @@ the items attached to the biblio
> 
> =cut
> 
>-use strict;
>-#use warnings; FIXME - Bug 2505
>+use Modern::Perl;
> use CGI qw ( -utf8 );
> use HTML::Entities;
> 
>diff --git a/catalogue/export.pl b/catalogue/export.pl
>index c10686c..ac8a202 100755
>--- a/catalogue/export.pl
>+++ b/catalogue/export.pl
>@@ -1,6 +1,5 @@
> #!/usr/bin/perl
>-use strict;
>-#use warnings; FIXME - Bug 2505
>+use Modern::Perl;
> 
> use C4::Record;
> use C4::Auth;
>diff --git a/catalogue/image.pl b/catalogue/image.pl
>index 3d95b05..d1fcba7 100755
>--- a/catalogue/image.pl
>+++ b/catalogue/image.pl
>@@ -23,8 +23,7 @@
> #
> #
> 
>-use strict;
>-use warnings;
>+use Modern::Perl;
> 
> use CGI qw ( -utf8 );    #qw(:standard escapeHTML);
> use C4::Context;
>diff --git a/catalogue/imageviewer.pl b/catalogue/imageviewer.pl
>index 06c4bbe..009b82e 100755
>--- a/catalogue/imageviewer.pl
>+++ b/catalogue/imageviewer.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 C4::Auth;
>diff --git a/catalogue/issuehistory.pl b/catalogue/issuehistory.pl
>index d154a21..5cf0405 100755
>--- a/catalogue/issuehistory.pl
>+++ b/catalogue/issuehistory.pl
>@@ -16,8 +16,7 @@
> # along with Koha; if not, see <http://www.gnu.org/licenses>.
> 
> 
>-use strict;
>-#use warnings; FIXME - Bug 2505
>+use Modern::Perl;
> 
> use CGI qw ( -utf8 );
> use C4::Auth;
>diff --git a/catalogue/labeledMARCdetail.pl b/catalogue/labeledMARCdetail.pl
>index d84c75f..a033b07 100755
>--- a/catalogue/labeledMARCdetail.pl
>+++ b/catalogue/labeledMARCdetail.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 HTML::Entities;
> use MARC::Record;
>diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl
>index 5bc1d2f..5624240 100755
>--- a/catalogue/moredetail.pl
>+++ b/catalogue/moredetail.pl
>@@ -19,8 +19,7 @@
> # along with Koha; if not, see <http://www.gnu.org/licenses>.
> 
> 
>-use strict;
>-#use warnings; FIXME - Bug 2505
>+use Modern::Perl;
> use C4::Koha;
> use CGI qw ( -utf8 );
> use HTML::Entities;
>diff --git a/catalogue/search.pl b/catalogue/search.pl
>index 9f75221..812bd4f 100755
>--- a/catalogue/search.pl
>+++ b/catalogue/search.pl
>@@ -132,8 +132,7 @@ Not yet completed...
> 
> =cut
> 
>-use strict;            # always use
>-#use warnings; FIXME - Bug 2505
>+use Modern::Perl;
> 
> ## STEP 1. Load things that are used in both search page and
> # results page and decide which template to load, operations 
>diff --git a/catalogue/showmarc.pl b/catalogue/showmarc.pl
>index 11c4f39..e8f6939 100755
>--- a/catalogue/showmarc.pl
>+++ b/catalogue/showmarc.pl
>@@ -20,8 +20,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;
> 
> # standard or CPAN modules used
> use CGI qw(:standard -utf8);
>diff --git a/catalogue/updateitem.pl b/catalogue/updateitem.pl
>index 2e54eac..b7cbc94 100755
>--- a/catalogue/updateitem.pl
>+++ b/catalogue/updateitem.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 C4::Auth;
> use C4::Context;
>-- 
>2.1.4

Actions: View | Diff | Splinter Review

Attachments on bug 19995: 70656 | 70883 | 70895 | 71197