[7237] put @{} around array reference

[gavinsmith0123]

Revision: 7237
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7237
Author:   gavin
Date:     2016-06-26 12:21:32 +0000 (Sun, 26 Jun 2016)
Log Message:
-----------
put @{} around array reference

Modified Paths:
--------------
    trunk/tp/Texinfo/Parser.pm

Modified: trunk/tp/Texinfo/Parser.pm
===================================================================
--- trunk/tp/Texinfo/Parser.pm  2016-06-26 11:53:14 UTC (rev 7236)
+++ trunk/tp/Texinfo/Parser.pm  2016-06-26 12:21:32 UTC (rev 7237)
@@ -4848,7 +4848,7 @@
               } elsif ($format_raw_commands{$command}) {
                 push @{$self->{'context_stack'}}, 'rawpreformatted';
                 if (not $self->{'expanded_formats_hash'}->{$command}) {
-                  push $current->{'contents'}, {
+                  push @{$current->{'contents'}}, {
                     'parent' => $current,
                     'type' => 'elided_block',
                     'contents' => []
@@ -5402,9 +5402,9 @@
                 $current->{'extra'}->{'expand_index'} = 2;
 
                 # Add a dummy argument for the first argument.
-                push $current->{'args'}, {'type' => 'elided',
-                                          'parent' => $current,
-                                          'contents' => []};
+                push @{$current->{'args'}}, {'type' => 'elided',
+                                             'parent' => $current,
+                                             'contents' => []};
                _register_command_arg($self, $current->{'args'}->[-1],
                                      'brace_command_contents');
 
@@ -5445,9 +5445,9 @@
             # If this command is not being expanded, add a dummy argument,
             # and scan forward to the closing brace.
             if (!$expandp) {
-              push $current->{'args'}, {'type' => 'elided',
-                                        'parent' => $current,
-                                        'contents' => []};
+              push @{$current->{'args'}}, {'type' => 'elided',
+                                           'parent' => $current,
+                                           'contents' => []};
               my $brace_count = 1;
               while ($brace_count > 0) {
                 if ($line =~ s/[^{}]*([{}])//) {