diff options
| author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-01-09 18:31:18 +0100 |
|---|---|---|
| committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-01-09 18:31:18 +0100 |
| commit | 38623091f241bd53975cf685136bab57f78c255e (patch) | |
| tree | 8ae588b50e3dc895cb0a01182d57d14b6b05a702 | |
| parent | dc955705aa540f8dc02be36736d6fd647be4af48 (diff) | |
| download | sbotools2-38623091f241bd53975cf685136bab57f78c255e.tar.xz | |
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} }».
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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; |