fix cpan-searching regex to include ^ and $, dont check against cpan unless sbo =~ /^perl-/

1 files changed, 7 insertions, 5 deletions

diff --git a/sboinstall b/sboinstall
index d65831b..0f87d5a 100755
--- a/sboinstall
+++ b/sboinstall
@@ -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;