diff options
author | xocel <xocel@iquidus.org> | 2012-10-09 02:29:34 +1300 |
---|---|---|
committer | xocel <xocel@iquidus.org> | 2012-10-09 02:29:34 +1300 |
commit | 997c0c134f4af389626eb02c88baec390cba269c (patch) | |
tree | 4954d1abfe75ead7b263775d9d6220e0ffb9afcb /sboupgrade | |
parent | 9c6ec67cadcf1d7bbaeb1a34a2073916e4399f39 (diff) | |
download | sbotools2-997c0c134f4af389626eb02c88baec390cba269c.tar.xz |
sboremove
Diffstat (limited to 'sboupgrade')
-rwxr-xr-x | sboupgrade | 18 |
1 files changed, 10 insertions, 8 deletions
@@ -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; |