[patch] patch unsecure/broken regexp execution

g-cpan_regexp.patch (text/plain), 557 bytes, created by Andreas 'ac0v' Specht on 2012-05-27 15:24:31 UTC

--- /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");