Permalink
Browse files

fix detecting modules in perl core, bug #189865

  • Loading branch information...
1 parent 3730d64 commit b547919a61165c632e9dc79299d266761305434d @bor committed Jun 12, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 bin/g-cpan
View
@@ -522,6 +522,7 @@ sub generatePackageInfo
my $s_perl = new DirHandle($pkgdbdir);
my $eb = $ebuild_wanted;
$eb =~ s{::}{/}gxs;
+ $eb = '/' . $eb;
while (defined(my $read = $s_perl->read))
{
if ((-d $pkgdbdir . "/" . $read) and ($read =~ m{^perl}x))
@@ -533,7 +534,7 @@ sub generatePackageInfo
{
my $thisfile = (split(/ /, $_))[1];
$thisfile =~ s{\.([A-Za-z]{1,3})$}{};
- if ( ($thisfile =~ m{\Q$eb\E}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");

0 comments on commit b547919

Please sign in to comment.