From 38623091f241bd53975cf685136bab57f78c255e Mon Sep 17 00:00:00 2001
From: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date: Fri, 9 Jan 2015 18:31:18 +0100
Subject: In newer perls, push on a reference causes warning
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

One instance of «push @$args{QUEUE}»   which seems to have been
misinterpreted was fixed to «push @{ $args->{QUEUE} }».
---
 SBO-Lib/lib/SBO/Lib.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(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 fb343ec..a38cfc1 100644
--- a/SBO-Lib/lib/SBO/Lib.pm
+++ b/SBO-Lib/lib/SBO/Lib.pm
@@ -932,7 +932,7 @@ sub add_to_queue {
 	my $args = shift;
 	my $sbo = \${$args}{NAME};
 	return unless $$sbo;
-	push @$args{QUEUE}, $$sbo;
+	push @{ $args->{QUEUE} }, $$sbo;
 	my $requires = get_requires $$sbo;
 	FIRST: for my $req (@$requires) {
 		next FIRST if $req eq $$sbo;
-- 
cgit v1.2.3