sbotools2

commit 38623091f241bd53975cf685136bab57f78c255e
parent dc955705aa540f8dc02be36736d6fd647be4af48
Author: Andreas Guldstrand <andreas.guldstrand@gmail.com>
Date:   Fri,  9 Jan 2015 18:31:18 +0100

In newer perls, push on a reference causes warning

One instance of «push @$args{QUEUE}»   which seems to have been
misinterpreted was fixed to «push @{ $args->{QUEUE} }».

Diffstat:
M
SBO-Lib/lib/SBO/Lib.pm
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git 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;