diff options
| author | J Pipkin <j@dawnrazor.net> | 2013-03-28 07:08:08 -0500 |
|---|---|---|
| committer | J Pipkin <j@dawnrazor.net> | 2013-03-28 07:08:08 -0500 |
| commit | d26ccbbcd5d2eb3f419b750c4ad93c43aed134a2 (patch) | |
| tree | ad261c87384a25b3a6d46de2a1fa912a765e9274 /SBO-Lib | |
| parent | be8ce6dd3efa75e020b5caae6544bc25b2a8d40f (diff) | |
| download | sbotools2-d26ccbbcd5d2eb3f419b750c4ad93c43aed134a2.tar.xz | |
in get_build_queue(), keep last instance of repeated thing instead of first, so final queue is ordered correctly.
Diffstat (limited to 'SBO-Lib')
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index 770e300..13f5057 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -957,12 +957,14 @@ sub get_build_queue { ); add_to_queue(\%args); } - # Remove duplicate entries (leaving first occurrence) + # Remove duplicate entries (leaving last occurrence) + @$temp_queue = reverse @$temp_queue; my (%seen, @build_queue); FIRST: for my $sb (@$temp_queue) { next FIRST if $seen{$sb}++; push @build_queue, $sb; } + @build_queue = reverse @build_queue; return \@build_queue; } |