--- /usr/bin/g-cpan.orig	2012-05-27 17:08:57.000000000 +0200
+++ /usr/bin/g-cpan	2012-05-27 17:12:24.000000000 +0200
@@ -536,7 +536,7 @@
                     {
                         my $thisfile = (split(/ /, $_))[1];
 						$thisfile =~ s{\.([A-Za-z]{1,3})$}{};
-                        if (($thisfile =~ m{$eb}x) && !defined($passed_to_install{$eb}))
+                        if (($thisfile =~ m{\Q$eb\E}x) && !defined($passed_to_install{$eb}))
 						{
     						spinner_stop();
 							print_info("$ebuild_wanted is part of the core perl install");