[PATCH] ParserNonXS: Fix minor Perl error

[Arsen Arsenović]

* 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ć  <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