[perl-Devel-Hide] patch to avoid warnings for 'defined(@array)' - rt#74225

[Iain Arnell]

commit 1b877eb80027d6de39543bb6d8bd734b2ad78848
Author: Iain Arnell <iarnell at gmail.com>
Date:   Thu Jun 28 05:36:46 2012 -0600

    patch to avoid warnings for 'defined(@array)' - rt#74225

 perl-Devel-Hide.spec |    9 ++++++++-
 rt74225.patch        |   12 ++++++++++++
 2 files changed, 20 insertions(+), 1 deletions(-)
---
diff --git a/perl-Devel-Hide.spec b/perl-Devel-Hide.spec
index 1d3fc2d..182b37a 100644
--- a/perl-Devel-Hide.spec
+++ b/perl-Devel-Hide.spec
@@ -1,11 +1,14 @@
 Name:           perl-Devel-Hide
 Version:        0.0008
-Release:        10%{?dist}
+Release:        11%{?dist}
 Summary:        Forces the unavailability of specified Perl modules (for testing)
 License:        GPL+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/Devel-Hide/
 Source0:        http://www.cpan.org/authors/id/F/FE/FERREIRA/Devel-Hide-%{version}.tar.gz
+# 'defined(@array)' is deprecated - avoid warnings
+# see https://rt.cpan.org/Public/Bug/Display.html?id=74225
+Patch0:         rt74225.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildArch:      noarch
 BuildRequires:  perl(ExtUtils::MakeMaker)
@@ -21,6 +24,7 @@ installed or not).
 
 %prep
 %setup -q -n Devel-Hide-%{version}
+%patch0 -p1
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor
@@ -49,6 +53,9 @@ rm -rf $RPM_BUILD_ROOT
 %{_mandir}/man3/*
 
 %changelog
+* Thu Jun 28 2012 Iain Arnell <iarnell at gmail.com> 0.0008-11
+- patch to avoid warnings for 'defined(@array)' - rt#74225
+
 * Tue Jun 12 2012 Petr Pisar <ppisar at redhat.com> - 0.0008-10
 - Perl 5.16 rebuild
 
diff --git a/rt74225.patch b/rt74225.patch
new file mode 100644
index 0000000..1f03ef3
--- /dev/null
+++ b/rt74225.patch
@@ -0,0 +1,12 @@
+diff -up Devel-Hide-0.0008/lib/Devel/Hide.pm.orig Devel-Hide-0.0008/lib/Devel/Hide.pm
+--- Devel-Hide-0.0008/lib/Devel/Hide.pm.orig	2007-11-15 07:45:02.000000000 -0700
++++ Devel-Hide-0.0008/lib/Devel/Hide.pm	2012-06-28 05:27:24.000000000 -0600
+@@ -101,7 +101,7 @@ sub _push_hidden {
+ BEGIN {
+ 
+     # unless @HIDDEN was user-defined elsewhere, set default
+-    if ( !defined @HIDDEN && $ENV{DEVEL_HIDE_PM} ) {
++    if ( !@HIDDEN && $ENV{DEVEL_HIDE_PM} ) {
+         _push_hidden( split q{ }, $ENV{DEVEL_HIDE_PM} );
+ 
+         # NOTE. "split ' ', $s" is special. Read "perldoc -f split".