@@ -, +, @@ 
---
 bin/g-cpan         | 2 +-
 lib/Gentoo/CPAN.pm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)
--- a/bin/g-cpan	
+++ a/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;
--- a/lib/Gentoo/CPAN.pm	
+++ a/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>) {
--