From 6d2482faeddb658cd41327d8cc44d1efcaae5788 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <petr.pisar@atlas.cz>
Date: Sun, 16 Feb 2014 16:11:53 +0100
Subject: [PATCH] Parenthesise qw

Perl 5.18 requires parenthesis around qw operator to produce an array.
---
 bin/g-cpan         | 2 +-
 lib/Gentoo/CPAN.pm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/bin/g-cpan b/bin/g-cpan
index a30d271..6e4a528 100644
--- a/bin/g-cpan
+++ b/bin/g-cpan
@@ -710,7 +710,7 @@ sub generatePackageInfo
 
                         # Detect the file extension, upstream usually uses .tar.gz, but not always
                         my $module_a_ext = '';
-                        foreach my $ext qw(tgz tbz2 tar.bz2 tar.xz tar.Z zip)
+                        foreach my $ext (qw(tgz tbz2 tar.bz2 tar.xz tar.Z zip))
                         {
                             if ( $gcpan_run->{'cpan'}{lc($original_ebuild)}{'src_uri'} =~ m/\.\Q$ext\E$/ ) {
                                 $module_a_ext = sprintf 'MODULE_A_EXT="%s"', $ext;
diff --git a/lib/Gentoo/CPAN.pm b/lib/Gentoo/CPAN.pm
index 379e864..0a760d1 100644
--- a/lib/Gentoo/CPAN.pm
+++ b/lib/Gentoo/CPAN.pm
@@ -322,7 +322,7 @@ sub FindDeps {
                 close(YAML);
                 if ( check_yaml(@yaml) ) {
                 my $arr = YAML::Load(@yaml);
-                foreach my $type qw(configure_requires requires build_requires recommends) {
+                foreach my $type (qw(configure_requires requires build_requires recommends)) {
                     if ( my $ar_type = $arr->{$type} ) {
                         foreach my $module ( keys %{$ar_type} ) {
                             next if ( $module eq "" );
@@ -384,7 +384,7 @@ sub FindDeps {
                 my (%p) = ();
                 my $fh;
 
-                foreach my $type qw(requires configure_requires build_requires) {
+                foreach my $type (qw(requires configure_requires build_requires)) {
                     if ( $fh = FileHandle->new("<$makefile\0") ) {
                         local ($/) = "";
                         while (<$fh>) {
-- 
1.8.3.2