|
Lines 536-542
Link Here
|
| 536 |
{ |
536 |
{ |
| 537 |
my $thisfile = (split(/ /, $_))[1]; |
537 |
my $thisfile = (split(/ /, $_))[1]; |
| 538 |
$thisfile =~ s{\.([A-Za-z]{1,3})$}{}; |
538 |
$thisfile =~ s{\.([A-Za-z]{1,3})$}{}; |
| 539 |
if (($thisfile =~ m{$eb}x) && !defined($passed_to_install{$eb})) |
539 |
if (($thisfile =~ m{\Q$eb\E}x) && !defined($passed_to_install{$eb})) |
| 540 |
{ |
540 |
{ |
| 541 |
spinner_stop(); |
541 |
spinner_stop(); |
| 542 |
print_info("$ebuild_wanted is part of the core perl install"); |
542 |
print_info("$ebuild_wanted is part of the core perl install"); |
