diff options
| -rwxr-xr-x | sboinstall | 12 | 
1 files changed, 7 insertions, 5 deletions
@@ -117,11 +117,13 @@ FIRST: for my $sbo (@$build_queue) {          say "$name already installed.";          next FIRST;      } else { -		my $pm_name = $sbo; -		$pm_name =~ s/^perl-//; -		if (/$pm_name/i ~~ @$pms) { -			say "$sbo installed via the cpan."; -			next FIRST; +		if ($sbo =~ /^perl-/) { +			my $pm_name = $sbo; +			$pm_name =~ s/^perl-//; +			if (/^$pm_name$/i ~~ @$pms) { +				say "$sbo installed via the cpan."; +				next FIRST; +			}  		}  	}      $locations{$name} = get_sbo_location($sbo) if $compat32;  | 
