From a16764fc281e5662a66b4ef28150c91bd7c22035 Mon Sep 17 00:00:00 2001
From: xocel <xocel@iquidus.org>
Date: Tue, 20 Nov 2012 11:02:42 +1300
Subject: upgradex: fixed -f/-z

---
 sboremove | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'sboremove')

diff --git a/sboremove b/sboremove
index d38a8dd..cba1a5a 100755
--- a/sboremove
+++ b/sboremove
@@ -94,12 +94,6 @@ sub confirm_remove ($) {
 	}
 }
 
-sub is_rootpkg ($) {
-	# Return 1 if pkg was specified by user. 
-	my $pkg = shift;
-	return (exists {map { $_ => 1 } @remove}->{$pkg});
-}
-
 # Determine dependencies & warnings
 if ($no_reqs) {
 	$remove_queue = \@remove;
@@ -142,7 +136,7 @@ unless ($non_int) {
 		for my $val (@$req_by) {
 			if ( $val ~~ @confirmed ) { $cnf_count++; }  
 		}
-		my $rootpkg = is_rootpkg $pkg;
+		my $rootpkg = ($pkg ~~ @remove);
 		if ($cnf_count == @$req_by or $rootpkg or $alwaysask) {  
 			say $pkg;
 			if ( @$req_by ) {
-- 
cgit v1.2.3