Attachment 44992 Details for Bug 15215 – Proposed patch

[patch] Proposed patch

0001-Bug-15215-Remove-warning-due-to-misuse-of-UNIVERSAL.patch (text/plain), 1.43 KB, created by Colin Campbell on 2015-11-19 12:27:28 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Colin Campbell

Created: 2015-11-19 12:27:28 UTC

Size: 1.43 KB

patch

obsolete

>From 982984a0eac7d79811fe347ab6044814fcedf511 Mon Sep 17 00:00:00 2001
>From: Colin Campbell <colin.campbell@ptfs-europe.com>
>Date: Thu, 19 Nov 2015 12:15:34 +0000
>Subject: [PATCH] Bug 15215 Remove warning due to misuse of UNIVERSAL
>
>Calling UNIVERSAL's internal methods will cause a depreciation
>warning in perls less that 5.22 as of 5.22 the warning is a fatal
>error causing compilation to abort
>
>Replace the use UNIVERSAL with UNIVERSAL::can to work around the
>buggy construct perldoc UNIVERSAL::can for more info
>---
> C4/Installer/PerlDependencies.pm | 5 +++++
> C4/SIP/Sip/MsgType.pm            | 2 +-
> 2 files changed, 6 insertions(+), 1 deletion(-)
>
>diff --git a/C4/Installer/PerlDependencies.pm b/C4/Installer/PerlDependencies.pm
>index e815cda..c1d03c7 100644
>--- a/C4/Installer/PerlDependencies.pm
>+++ b/C4/Installer/PerlDependencies.pm
>@@ -777,6 +777,11 @@ our $PERL_DEPS = {
>         'required' => '0',
>         'min_ver'  => '0.28',
>     },
>+    'UNIVERSAL::can' => {
>+        'usage'    => 'SIP',
>+        'required' => '1',
>+        'min_ver'  => '1.10',
>+    },
> };
> 
> 1;
>diff --git a/C4/SIP/Sip/MsgType.pm b/C4/SIP/Sip/MsgType.pm
>index 6b387cf..5ef5027 100644
>--- a/C4/SIP/Sip/MsgType.pm
>+++ b/C4/SIP/Sip/MsgType.pm
>@@ -19,7 +19,7 @@ use Data::Dumper;
> use CGI qw ( -utf8 );
> use C4::Auth qw(&check_api_auth);
> 
>-use UNIVERSAL qw(can);	# make sure this is *after* C4 modules.
>+use UNIVERSAL::can;
> 
> use vars qw(@ISA $VERSION @EXPORT_OK);
> 
>-- 
>2.5.0
>

Actions: View | Diff | Splinter Review

Attachments on bug 15215: 44992 | 45037 | 45043