From 997c0c134f4af389626eb02c88baec390cba269c Mon Sep 17 00:00:00 2001
From: xocel <xocel@iquidus.org>
Date: Tue, 9 Oct 2012 02:29:34 +1300
Subject: sboremove

---
 sboupgrade | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

(limited to 'sboupgrade')

diff --git a/sboupgrade b/sboupgrade
index c4c8e2f..7fcdb61 100755
--- a/sboupgrade
+++ b/sboupgrade
@@ -108,13 +108,13 @@ sub get_readme_path ($) {
 
 # for a ref to an array of hashes of installed packages, return an array ref
 # consisting of just their names
-sub get_inst_names ($) {
-	exists $_[0] or script_error 'get_inst_names requires an argument.';
-	my $inst = shift;
-	my @installed;
-	push @installed, $$_{name} for @$inst;
-	return \@installed;
-}
+# sub get_inst_names ($) {
+# 	exists $_[0] or script_error 'get_inst_names requires an argument.';
+# 	my $inst = shift;
+# 	my @installed;
+# 	push @installed, $$_{name} for @$inst;
+# 	return \@installed;
+# }
 
 # pull list of requirements
 sub get_requires ($$) {
@@ -289,7 +289,9 @@ sub process_sbos ($) {
 		if ($@) {
 			$failures{$sbo} = $@;
 		} else {
-			do_upgradepkg $pkg unless $no_install;
+			
+			do_upgradepkg $pkg unless $no_install;			
+
 			unless ($distclean) {
 				make_clean (SBO => $sbo, SRC => $src, VERSION => $version)
 					unless $noclean;
-- 
cgit v1.2.3