From 6ab8aecc0a9e01b970ceed7a2b2e3dd9f68b1012 Mon Sep 17 00:00:00 2001
From: xocel <xocel@iquidus.org>
Date: Sat, 5 Jan 2013 12:55:49 +1300
Subject: replaced  =~ s/^perl-//g; with  =~ ...

---
 sboupgrade | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sboupgrade b/sboupgrade
index d580667..a98253c 100755
--- a/sboupgrade
+++ b/sboupgrade
@@ -331,7 +331,7 @@ FIRST: for my $sbo (@$build_queue) {
         next FIRST;
     } else {
 		my $pm_name = $name;
-		$name =~ s/^perl-//g;
+		$pm_name =~ s/^perl-//g;
 		if (/$pm_name/i ~~ @$pms) {
 			say "$name installed via the cpan." unless $force;
 			next FIRST;
-- 
cgit v1.2.3