diff options
author | xocel <xocel@iquidus.org> | 2012-12-16 12:34:47 +1300 |
---|---|---|
committer | xocel <xocel@iquidus.org> | 2012-12-16 12:34:47 +1300 |
commit | c9805aa0aa20292f4b9f3ca807a65767e57c973f (patch) | |
tree | 4223466895b5c6c698dae999891bcf5f27eae3fb | |
parent | 2f47af620822442423a3b9ebff85f36f559334b4 (diff) | |
download | sbotools2-c9805aa0aa20292f4b9f3ca807a65767e57c973f.tar.xz |
fixed duplicates in queue when req matches sbo on command line
-rwxr-xr-x | sboupgrade | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -93,7 +93,6 @@ if ($compat32) { # if we can't find SLACKBUILDS.TXT in $config{HOME}, prompt to fetch the tree slackbuilds_or_fetch; -my $rootpkg = $ARGV[0]; my %warnings; my %options; my $build_queue; @@ -104,10 +103,13 @@ if ($no_reqs or $non_int) { $build_queue = \@ARGV; } else { for my $sbo (@ARGV) { - my $queue = get_build_queue ([$sbo], \%warnings); - push @$build_queue, reverse @$queue; - } + my $queue = get_build_queue ([$sbo], \%warnings); + for my $item (reverse @$queue) { + push @$build_queue, $item unless $item ~~ @$build_queue; + } + } } + for my $sbo (@$build_queue) { $locations{$sbo} = get_sbo_location ($sbo); die "Unable to locate $sbo in the SlackBuilds.org tree.\n" unless |