Re: [PATCH] ParserNonXS: Fix minor Perl error

[Patrice Dumas]

On Wed, Jan 25, 2023 at 01:59:02PM +0100, Arsen Arsenović wrote:
> * 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?

Yes, please commit.

> 
> 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ć  <arsen@aarsen.me>
> +
> +     ParserNonXS: Fix minor Perl error
> +
> +     * tp/Texinfo/ParserNonXS.pm (_check_valid_nesting_context): Escape
> +     invalid uses of @.
> +
>  2023-01-23  Gavin Smith <gavinsmith0123@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
> 
>