branch master updated: rm missed /a flags

[Gavin D. Smith]

This is an automated email from the git hooks/post-receive script.

gavin pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new 1c7e90fd31 rm missed /a flags
1c7e90fd31 is described below

commit 1c7e90fd31cd79a0e19845269219bd4618393eee
Author: Gavin Smith <gavinsmith0123@gmail.com>
AuthorDate: Mon Apr 11 19:14:31 2022 +0100

    rm missed /a flags
---
 tp/Texinfo/Convert/Plaintext.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tp/Texinfo/Convert/Plaintext.pm b/tp/Texinfo/Convert/Plaintext.pm
index e71350226f..2667bb3503 100644
--- a/tp/Texinfo/Convert/Plaintext.pm
+++ b/tp/Texinfo/Convert/Plaintext.pm
@@ -546,16 +546,16 @@ sub _protect_sentence_ends ($) {
   # in front of the full stop.  The choice of BS for this is arbitrary.
   $text =~ s/(?<=[^\p{Upper}])
              (?=[$end_sentence][$after_punctuation]*(?:\s|$))
-             /\x08/xag;
+             /\x08/xg;
 
   # Also insert a control character at end of string, to protect a full stop 
   # that may follow later.
 
-  #$text =~ s/(?<=[^\p{Upper}\s][$after_punctuation]*)$/\x08/a;
+  #$text =~ s/(?<=[^\p{Upper}\s][$after_punctuation]*)$/\x08/;
   # Perl doesn't support "variable length lookbehind"
 
   $text = reverse $text;
-  $text =~ s/^(?=[$after_punctuation]*(?:[^\p{Upper}\s]))/\x08/xa;
+  $text =~ s/^(?=[$after_punctuation]*(?:[^\p{Upper}\s]))/\x08/;
   $text = reverse $text;
 
   return $text;