From 364c8b1b72bef1c77a78d861cdd2637782cdf7f9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@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@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