texinfo-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

branch master updated: rm missed /a flags


From: Gavin D. Smith
Subject: branch master updated: rm missed /a flags
Date: Mon, 11 Apr 2022 14:45:33 -0400

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 a4be7c2864 rm missed /a flags
a4be7c2864 is described below

commit a4be7c286498e8ab43d4569a06345b0db5d62358
Author: Gavin Smith <gavinsmith0123@gmail.com>
AuthorDate: Mon Apr 11 19:45:23 2022 +0100

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

diff --git a/tp/Texinfo/Convert/Plaintext.pm b/tp/Texinfo/Convert/Plaintext.pm
index 2667bb3503..e57d7b051d 100644
--- a/tp/Texinfo/Convert/Plaintext.pm
+++ b/tp/Texinfo/Convert/Plaintext.pm
@@ -995,9 +995,9 @@ sub _align_lines($$$$$$)
       # for debugging.
       $orig_line = $line;
       $removed_line_bytes_end -= count_bytes($self, $chomped);
-      $line =~ s/^(\s*)//a;
+      $line =~ s/^(\s*)//;
       $removed_line_bytes_begin -= count_bytes($self, $1);
-      $line =~ s/(\s*)$//a;
+      $line =~ s/(\s*)$//;
       $removed_line_bytes_end -= count_bytes($self, $1);
       my $line_width = Texinfo::Convert::Unicode::string_width($line);
       if ($line_width == 0) {
@@ -1818,7 +1818,7 @@ sub _convert($$)
         if ($command eq 'strong' 
              and scalar (@{$element->{'args'}->[0]->{'contents'}})
              and $element->{'args'}->[0]->{'contents'}->[0]->{'text'}
-             and $element->{'args'}->[0]->{'contents'}->[0]->{'text'} =~ 
/^Note\s/ai
+             and $element->{'args'}->[0]->{'contents'}->[0]->{'text'} =~ 
/^Note\s/i
              and $self->{'output_format'}
              and $self->{'output_format'} eq 'info') {
           $self->line_warn($self, __(
@@ -2079,7 +2079,7 @@ sub _convert($$)
           my $post_quote = $pre_quote;
           $name_text .= _convert($self, {'contents' => [
                 {'text' => "$post_quote: "}]});
-          $name_text =~ s/^(\s*)/$1$pre_quote/a if $pre_quote;
+          $name_text =~ s/^(\s*)/$1$pre_quote/ if $pre_quote;
           $result .= $name_text;
           _count_added($self,$self->{'formatters'}[-1]{'container'},
                        $pre_quote)
@@ -2099,9 +2099,9 @@ sub _convert($$)
 
           my $node_text_checked = $node_text 
              .get_pending($self->{'formatters'}->[-1]->{'container'});
-          $maybe_file =~ s/^\s*//a;
+          $maybe_file =~ s/^\s*//;
           $maybe_file = quotemeta $maybe_file;
-          $node_text_checked =~ s/^\s*$maybe_file//a;
+          $node_text_checked =~ s/^\s*$maybe_file//;
           $quoting_required = 0;
           if ($node_text_checked =~ /([,\t\.])/m ) {
               if ($self->get_conf('INFO_SPECIAL_CHARS_WARNING')) {
@@ -2116,7 +2116,7 @@ sub _convert($$)
           $pre_quote = $quoting_required ? "\x{7f}" : '';
           $post_quote = $pre_quote;
           if ($pre_quote) {
-            $node_text =~ s/^(\s*)/$1$pre_quote/a;
+            $node_text =~ s/^(\s*)/$1$pre_quote/;
             _count_added($self,$self->{'formatters'}[-1]{'container'},
                          $pre_quote);
           }
@@ -2163,7 +2163,7 @@ sub _convert($$)
               shift @{$self->{'current_contents'}->[-1]};
             }
 
-            $node_text =~ s/^(\s*)/$1$pre_quote/a;
+            $node_text =~ s/^(\s*)/$1$pre_quote/;
           }
           $result .= $node_text;
         }
@@ -2183,7 +2183,7 @@ sub _convert($$)
             if ($command eq 'xref') {
               if ($next and defined($next->{'text'}) and $next->{'text'} =~ 
/\S/) {
                 my $text = $next->{'text'};
-                $text =~ s/^\s*//a;
+                $text =~ s/^\s*//;
                 my $char = substr($text, 0, 1);
                 $self->line_warn($self, sprintf(__(
                             "`.' or `,' must follow \@xref, not %s"),
@@ -2650,7 +2650,7 @@ sub _convert($$)
             my $old_context = pop @{$self->{'context'}};
             delete $self->{'multiple_pass'};
             die if ($old_context ne 'listoffloats');
-            while ($caption_text =~ 
s/^\s*(\p{Unicode::EastAsianWidth::InFullwidth}\s*|\S+\s*)//a) {
+            while ($caption_text =~ 
s/^\s*(\p{Unicode::EastAsianWidth::InFullwidth}\s*|\S+\s*)//) {
               my $new_word = $1;
               $new_word =~ s/\n//g;
               if ((Texinfo::Convert::Unicode::string_width($new_word) +
@@ -2973,7 +2973,7 @@ sub _convert($$)
           delete $self->{'formatters'}->[-1]->{'suppress_styles'};
           $pre_quote = $post_quote = '';
           if ($entry_name_seen) {
-            if ($node_text =~ /([,\t]|\.\s)/a) {
+            if ($node_text =~ /([,\t]|\.\s)/) {
               if ($self->get_conf('INFO_SPECIAL_CHARS_WARNING')) {
                 $self->line_warn($self, sprintf(__(
                    "menu entry node name should not contain `%s'"), $1),



reply via email to

[Prev in Thread] Current Thread [Next in Thread]