[patch] g-cpan.patch

g-cpan.patch (text/plain), 1.11 KB, created by Sergiy Borodych on 2008-07-30 15:38:36 UTC

--- bin/g-cpan.orig	2008-07-30 18:12:31.000000000 +0300
+++ bin/g-cpan	2008-07-30 18:14:04.000000000 +0300
@@ -508,7 +508,7 @@ sub generatePackageInfo
                     {
                         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$/) && !defined($passed_to_install{$eb}))
 						{
     						spinner_stop();
 							print_info("$ebuild_wanted is part of the core perl install");
@@ -768,7 +768,10 @@ HERE
                     }
                     else
                     {
-                        $upgrade and print_info("$ebuild_wanted already up to date") and last;
+                        if ($upgrade) {
+                            print_info("$ebuild_wanted already up to date");
+                            last;
+                        }
                         my $portage_name = $gcpan_run->{'cpan'}->{lc($original_ebuild)}->{'portage_name'};
                         $really_install{$portage_name} = 1;
                     }