From be8ce6dd3efa75e020b5caae6544bc25b2a8d40f Mon Sep 17 00:00:00 2001
From: J Pipkin <j@dawnrazor.net>
Date: Thu, 28 Mar 2013 06:52:57 -0500
Subject: fix cpan-searching regex to include ^ and $, dont check against cpan
 unless sbo =~ /^perl-/

---
 sboinstall | 12 +++++++-----
 1 file 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;
-- 
cgit v1.2.3