branch master updated: * tp/Texinfo/Translations.pm (replace_substrings) (replace_convert_substrings): Remove comment stating origin of a line of code, which is distracting and unnecessary. (It was "# next line taken from libintl perl, copyright Guido. sub __expand".)

[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 90c3c51b87 * tp/Texinfo/Translations.pm (replace_substrings) 
(replace_convert_substrings): Remove comment stating origin of a line of code, 
which is distracting and unnecessary.  (It was "# next line taken from libintl 
perl, copyright Guido. sub __expand".)
90c3c51b87 is described below

commit 90c3c51b87d130d63b73a79fa5d7b48ea5e85a78
Author: Gavin Smith <gavinsmith0123@gmail.com>
AuthorDate: Sun Dec 24 10:03:02 2023 +0000

    * tp/Texinfo/Translations.pm (replace_substrings)
    (replace_convert_substrings): Remove comment stating origin
    of a line of code, which is distracting and unnecessary.  (It was
    "# next line taken from libintl perl, copyright Guido. sub __expand".)
---
 ChangeLog                  | 7 +++++++
 tp/Texinfo/Translations.pm | 2 --
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 325a1449ba..1d08c66c57 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2023-12-24  Gavin Smith <gavinsmith0123@gmail.com>
+
+       * tp/Texinfo/Translations.pm (replace_substrings)
+       (replace_convert_substrings): Remove comment stating origin
+       of a line of code, which is distracting and unnecessary.  (It was
+       "# next line taken from libintl perl, copyright Guido. sub __expand".)
+
 2023-12-23  Gavin Smith <gavinsmith0123@gmail.com>
 
        * tp/Texinfo/Convert/Text.pm (text_heading, _text_heading):
diff --git a/tp/Texinfo/Translations.pm b/tp/Texinfo/Translations.pm
index f4a3e2f271..4961da2435 100644
--- a/tp/Texinfo/Translations.pm
+++ b/tp/Texinfo/Translations.pm
@@ -365,7 +365,6 @@ sub replace_substrings($$;$)
 
   if (defined($replaced_substrings) and ref($replaced_substrings)) {
     my $re = join '|', map { quotemeta $_ } keys %$replaced_substrings;
-    # next line taken from libintl perl, copyright Guido. sub __expand
     $translation_result
   =~ s/\{($re)\}/defined $replaced_substrings->{$1} ? 
$replaced_substrings->{$1} : "{$1}"/ge;
   }
@@ -390,7 +389,6 @@ sub replace_convert_substrings($$;$)
   # with @-commands used in translations.
   if (defined($replaced_substrings) and ref($replaced_substrings)) {
     my $re = join '|', map { quotemeta $_ } keys %$replaced_substrings;
-    # next line taken from libintl perl, copyright Guido. sub __expand
     $texinfo_line =~ s/\{($re)\}/\@txiinternalvalue\{$1\}/g;
   }