[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[7237] put @{} around array reference
From: |
gavinsmith0123 |
Subject: |
[7237] put @{} around array reference |
Date: |
Sun, 26 Jun 2016 12:21:32 +0000 (UTC) |
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/[^{}]*([{}])//) {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [7237] put @{} around array reference,
gavinsmith0123 <=