aboutsummaryrefslogtreecommitdiff
path: root/sboupgrade
diff options
context:
space:
mode:
authorxocel <xocel@iquidus.org>2012-10-09 02:29:34 +1300
committerxocel <xocel@iquidus.org>2012-10-09 02:29:34 +1300
commit997c0c134f4af389626eb02c88baec390cba269c (patch)
tree4954d1abfe75ead7b263775d9d6220e0ffb9afcb /sboupgrade
parent9c6ec67cadcf1d7bbaeb1a34a2073916e4399f39 (diff)
downloadsbotools2-997c0c134f4af389626eb02c88baec390cba269c.tar.xz
sboremove
Diffstat (limited to 'sboupgrade')
-rwxr-xr-xsboupgrade18
1 files changed, 10 insertions, 8 deletions
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;