From ff2c85003c3e64b8f145b6f558b3d63b8e6541bb Mon Sep 17 00:00:00 2001 From: Jacob Pipkin Date: Thu, 1 Nov 2012 23:22:07 -0500 Subject: use my instead of state for $temp_queue, rip out $empty junk --- SBO-Lib/lib/SBO/Lib.pm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'SBO-Lib/lib/SBO/Lib.pm') diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index 1087fb4..e9f10d9 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -749,11 +749,10 @@ sub add_to_queue ($) { } # recursively add a sbo's requirements to the build queue. -sub get_build_queue ($$;$) { +sub get_build_queue ($$) { exists $_[1] or script_error 'get_build_queue requires two arguments.'; - my ($sbos, $warnings, $empty) = @_; - state $temp_queue = []; - $temp_queue = [] if $empty; + my ($sbos, $warnings) = @_; + my $temp_queue = []; for my $sbo (@$sbos) { my %args = ( QUEUE => $temp_queue,, -- cgit v1.2.3