diff options
author | xocel <xocel@iquidus.org> | 2012-10-15 17:59:10 +1300 |
---|---|---|
committer | xocel <xocel@iquidus.org> | 2012-10-15 17:59:10 +1300 |
commit | 901c1458ec200d341703bd92e79f35f5049c3368 (patch) | |
tree | fe02ae6b9531c98d50b8a27b6dd47906b053e608 /sbofind | |
parent | b58b73ea8a5686ecdc2d31acfba5999d32436619 (diff) | |
download | sbotools2-901c1458ec200d341703bd92e79f35f5049c3368.tar.xz |
sboremove: %README% support + general improvements
Diffstat (limited to 'sbofind')
-rwxr-xr-x | sbofind | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -7,6 +7,8 @@ # # author: Jacob Pipkin <j@dawnrazor.net> # license: WTFPL <http://sam.zoy.org/wtfpl/COPYING> +# +# modified by: Luke Williams <xocel@iquidus.org> use 5.16.0; use strict; @@ -93,10 +95,12 @@ sub get_file_contents ($) { return $contents; } +# get build queue and return it as a single line. sub show_build_queue ($) { - exists $_[0] or script_error 'prepare_queue requires an argument.'; - my $queue = join(" ", get_build_queue($_[0])); - return "$queue"; + exists $_[0] or script_error 'show_build_queue requires an argument.'; + my %warnings; + my $queue = get_build_queue($_[0], \%warnings); + return join(" ", @$queue); } my $findings = perform_search $search; |