Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

fix: add another detect depend(Build.PL)

what need to eval, this fix bug #417785
also add protect from bad chars in regex for depends
  • Loading branch information...
commit 00928403106bfe85a2c8602a814bbd85c1e570be 1 parent fed98f9
@bor authored
Showing with 3 additions and 3 deletions.
  1. +2 −2 bin/g-cpan
  2. +1 −1  lib/Gentoo/CPAN.pm
View
4 bin/g-cpan
@@ -532,8 +532,8 @@ sub generatePackageInfo
foreach (@data)
{
my $thisfile = (split(/ /, $_))[1];
- $thisfile =~ s{\.([A-Za-z]{1,3})$}{};
- if (($thisfile =~ m{$eb}x) && !defined($passed_to_install{$eb}))
+ $thisfile =~ s{\.([A-Za-z]{1,3})$}{};
+ 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");
View
2  lib/Gentoo/CPAN.pm
@@ -390,7 +390,7 @@ sub FindDeps {
my @list = split( ',', $p );
foreach my $pa (@list) {
$pa =~ s/\n|\s+|\'//mg;
- if ($pa =~ /=~/) {
+ if ( $pa =~ /=~|\?\(/ ) {
my ($module, $version ) = eval $pa;
next if ((!defined($module)) or
( $module eq "" ) or
Please sign in to comment.
Something went wrong with that request. Please try again.