branch master updated: grep instead of List::Util::any

[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 6a206e7c59 grep instead of List::Util::any
6a206e7c59 is described below

commit 6a206e7c5906e5590e2e876305016b2c5d708175
Author: Gavin Smith <gavinsmith0123@gmail.com>
AuthorDate: Mon Apr 11 18:52:17 2022 +0100

    grep instead of List::Util::any
    
    * tp/Texinfo/Transformations.pm (_reassociate_to_node):
    Use grep operator instead of List::Util::any in an attempt
    to be compatible with older Perls.  Reverses change on
    Mon Jan 3 21:15:21 2022 +0100 (not in ChangeLog).
---
 ChangeLog                     | 9 +++++++++
 tp/Texinfo/Transformations.pm | 6 ++----
 2 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 1e2676a5bc..8b35648079 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2022-04-11  Gavin Smith  <gavinsmith0123@gmail.com>
+
+       grep instead of List::Util::any
+
+       * tp/Texinfo/Transformations.pm (_reassociate_to_node):
+       Use grep operator instead of List::Util::any in an attempt
+       to be compatible with older Perls.  Reverses change on
+       Mon Jan 3 21:15:21 2022 +0100 (not in ChangeLog).
+
 2022-04-11  Gavin Smith  <gavinsmith0123@gmail.com>
 
        use re '/a';
diff --git a/tp/Texinfo/Transformations.pm b/tp/Texinfo/Transformations.pm
index 6b5cc7bfc0..8cf0dee2de 100644
--- a/tp/Texinfo/Transformations.pm
+++ b/tp/Texinfo/Transformations.pm
@@ -1,6 +1,6 @@
 # Transformations.pm: some transformations of the document tree
 #
-# Copyright 2010-2019 Free Software Foundation, Inc.
+# Copyright 2010-2022 Free Software Foundation, Inc.
 # 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -26,8 +26,6 @@ use strict;
 
 use Carp qw(cluck);
 
-use List::Util qw(any);
-
 use Texinfo::Common;
 use Texinfo::Translations;
 use Texinfo::Structuring;
@@ -287,7 +285,7 @@ sub _reassociate_to_node($$$$)
     if ($previous_node) {
       if (not defined($previous_node->{'extra'}->{'menus'})
           or not scalar(@{$previous_node->{'extra'}->{'menus'}})
-          or not (any {$current eq $_} 
@{$previous_node->{'extra'}->{'menus'}})) {
+          or not (grep {$current eq $_} 
@{$previous_node->{'extra'}->{'menus'}})) {
         print STDERR "Bug: menu $current not in previous node 
$previous_node\n";
       } else {
         @{$previous_node->{'extra'}->{'menus'}}