diff options
| author | Jacob Pipkin <j@dawnrazor.net> | 2012-11-01 22:23:31 -0500 |
|---|---|---|
| committer | Jacob Pipkin <j@dawnrazor.net> | 2012-11-01 22:23:31 -0500 |
| commit | 8918833a741fb9c9d8331574bd805267276bb211 (patch) | |
| tree | 76f7624b9ec02b5b5d39e34c7b00df711538efb9 | |
| parent | 942bfa63aec5bd4cc229f44ffe2e2437374cb091 (diff) | |
| download | sbotools2-8918833a741fb9c9d8331574bd805267276bb211.tar.xz | |
remove extraneous locations stuff from add_to_queue - get_sbo_location does not return a list
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index ae827de..c8b844c 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -734,11 +734,7 @@ sub add_to_queue ($) { my $sbo = \${$args}{NAME}; return unless $$sbo; push(@{$args}{QUEUE}, $$sbo); - my @locations = get_sbo_location $$sbo; - my $location; - for my $loc (@locations) { - $location = $loc if basename($loc) eq $$sbo; - } + my $location = get_sbo_location $$sbo; return unless $location; my $requires = get_from_info (LOCATION => $location, GET => 'REQUIRES'); for my $req (@$requires) { |