get_build_queue requires an array ref as first arg

1 files changed, 2 insertions, 1 deletions

diff --git a/sbofind b/sbofind
index b0cc7e5..ef01852 100755
--- a/sbofind
+++ b/sbofind
@@ -98,8 +98,9 @@ sub get_file_contents ($) {
 # get build queue and return it as a single line. 
 sub show_build_queue ($) {
 	exists $_[0] or script_error 'show_build_queue requires an argument.';
+	my $array_ref = [shift];
 	my %warnings;
-	my $queue = get_build_queue($_[0], \%warnings);
+	my $queue = get_build_queue($array_ref, \%warnings);
 	return join(" ", @$queue);
 }