[perl-File-MMagic-XS] Perl 5.18 compatibility

[Petr Pisar]

commit de23dbf080d741b5eb3a1e94fb6a49314ed9bd90
Author: Petr Písař <ppisar at redhat.com>
Date:   Fri Jul 19 09:44:04 2013 +0200

    Perl 5.18 compatibility

 ...qw-does-not-produce-array-context-anymore.patch |   31 ++++++++++++++++++++
 perl-File-MMagic-XS.spec                           |    4 ++
 2 files changed, 35 insertions(+), 0 deletions(-)
---
diff --git a/File-MMagic-XS-0.09006-qw-does-not-produce-array-context-anymore.patch b/File-MMagic-XS-0.09006-qw-does-not-produce-array-context-anymore.patch
new file mode 100644
index 0000000..3a13c95
--- /dev/null
+++ b/File-MMagic-XS-0.09006-qw-does-not-produce-array-context-anymore.patch
@@ -0,0 +1,31 @@
+From 364c8b1b72bef1c77a78d861cdd2637782cdf7f9 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar at redhat.com>
+Date: Fri, 19 Jul 2013 09:40:52 +0200
+Subject: [PATCH] qw() does not produce array context anymore
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+<https://rt.cpan.org/Public/Bug/Display.html?id=63048>
+
+Signed-off-by: Petr Písař <ppisar at redhat.com>
+---
+ inc/Module/Install/XSUtil.pm | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/inc/Module/Install/XSUtil.pm b/inc/Module/Install/XSUtil.pm
+index 8c21436..82b1918 100644
+--- a/inc/Module/Install/XSUtil.pm
++++ b/inc/Module/Install/XSUtil.pm
+@@ -242,7 +242,7 @@ sub cc_assert_lib {
+ 
+     if ( ! $self->{xsu_loaded_checklib} ) {
+         my $loaded_lib = 0;
+-        foreach my $checklib qw(inc::Devel::CheckLib Devel::CheckLib) {
++        foreach my $checklib (qw(inc::Devel::CheckLib Devel::CheckLib)) {
+             eval "use $checklib 0.4";
+             if (!$@) {
+                 $loaded_lib = 1;
+-- 
+1.8.1.4
+
diff --git a/perl-File-MMagic-XS.spec b/perl-File-MMagic-XS.spec
index ddd6047..13dc0df 100644
--- a/perl-File-MMagic-XS.spec
+++ b/perl-File-MMagic-XS.spec
@@ -6,6 +6,8 @@ Group:          Development/Libraries
 License:        ASL 2.0 and (GPL+ or Artistic)
 URL:            http://search.cpan.org/dist/File-MMagic-XS
 Source0:        http://search.cpan.org/CPAN/authors/id/D/DM/DMAKI/File-MMagic-XS-%{version}.tar.gz
+# Perl 5.18 compatibility, CPAN RT#63048
+Patch0:         File-MMagic-XS-0.09006-qw-does-not-produce-array-context-anymore.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(id -nu)
 BuildRequires:  gdbm-devel
 BuildRequires:  perl(ExtUtils::MakeMaker)
@@ -27,6 +29,7 @@ an extended amount of time.
 
 %prep
 %setup -q -n File-MMagic-XS-%{version}
+%patch0 -p1
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="$RPM_OPT_FLAGS"
@@ -54,6 +57,7 @@ rm -rf $RPM_BUILD_ROOT
 %changelog
 * Thu Jul 18 2013 Petr Pisar <ppisar at redhat.com> - 0.09006-12
 - Perl 5.18 rebuild
+- Perl 5.18 compatibility (CPAN RT#63048)
 
 * Mon Feb 25 2013 Paul Howarth <paul at city-fan.org> - 0.09006-11
 - BR: perl(ExtUtils::MakeMaker) to fix FTBFS (#914283)