* tp/Texinfo/ParserNonXS.pm (_check_valid_nesting_context): Escape invalid uses of @. --- Hi,
I was building the Git version of Texinfo and noticed this minor typo. OK for master? Thanks in advance, have a lovely day. ChangeLog | 7 +++++++ tp/Texinfo/ParserNonXS.pm | 6 +++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8153b2e3b8..feb1f7c11c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2023-01-25 Arsen Arsenović <ar...@aarsen.me> + + ParserNonXS: Fix minor Perl error + + * tp/Texinfo/ParserNonXS.pm (_check_valid_nesting_context): Escape + invalid uses of @. + 2023-01-23 Gavin Smith <gavinsmith0...@gmail.com> * tp/Texinfo/ParserNonXS.pm (_process_remaining_on_line) <close brace>, diff --git a/tp/Texinfo/ParserNonXS.pm b/tp/Texinfo/ParserNonXS.pm index da95e5a647..11b4639816 100644 --- a/tp/Texinfo/ParserNonXS.pm +++ b/tp/Texinfo/ParserNonXS.pm @@ -4301,16 +4301,16 @@ sub _check_valid_nesting_context if (($command eq 'caption' or $command eq 'shortcaption') and $self->{'nesting_context'}->{'caption'}) { $self->_line_warn(sprintf( - __("@%s should not appear anywhere inside caption"), + __("\@%s should not appear anywhere inside caption"), $command), $source_info); } elsif ($Texinfo::Commands::ref_commands{$command} and $self->{'nesting_context'}->{'xref'}) { $self->_line_warn(sprintf( - __("@%s should not appear anywhere inside cross-reference"), + __("\@%s should not appear anywhere inside cross-reference"), $command), $source_info); } $self->_line_warn(sprintf( - __("@%s should not appear anywhere inside @%s"), + __("\@%s should not appear anywhere inside \@%s"), $command, $invalid_context), $source_info) if ($invalid_context); } -- 2.39.1