diff -pudr usr/bin/g-cpan usr.fix/bin/g-cpan
--- usr/bin/g-cpan	2013-09-07 17:14:40.000000000 +0200
+++ usr.fix/bin/g-cpan	2013-09-07 17:11:11.000000000 +0200
@@ -713,7 +713,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 -pudr usr/lib64/perl5/vendor_perl/5.18.1/Gentoo/CPAN.pm usr.fix/lib64/perl5/vendor_perl/5.18.1/Gentoo/CPAN.pm
--- usr/lib64/perl5/vendor_perl/5.18.1/Gentoo/CPAN.pm	2013-09-07 17:14:40.000000000 +0200
+++ usr.fix/lib64/perl5/vendor_perl/5.18.1/Gentoo/CPAN.pm	2013-09-07 17:10:52.000000000 +0200
@@ -321,7 +321,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 "" );
@@ -383,7 +383,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>) {