TT#39401 Use List::Util in perl core instead of List::MoreUtils

Change-Id: I20dcc7082b3f56945ec5bf065c92b6b78ffe4fad

debian/control

@@ -18,7 +18,6 @@ Build-Depends:
  libhash-merge-perl,
  libio-interface-perl,
  libipc-system-simple-perl,
- liblist-moreutils-perl,
  libnet-netmask-perl,
  libnetwork-ipv4addr-perl,
  libreadonly-perl,
@@ -47,7 +46,6 @@ Depends:
  libhash-merge-perl,
  libio-interface-perl,
  libipc-system-simple-perl,
- liblist-moreutils-perl,
  libnet-netmask-perl,
  libnetwork-ipv4addr-perl,
  libregexp-ipv6-perl,

sbin/ngcp-network

@@ -10,7 +10,7 @@ use Getopt::Long;
 use IO::Interface;
 use IO::Socket;
 use IPC::Open3;
-use List::MoreUtils qw{ any minmax };
+use List::Util qw(any max);
 use Net::Netmask;
 use Pod::Usage;
 use Regexp::IPv6 qw($IPv6_re);
@@ -425,8 +425,8 @@ sub set_dbnode {
         }
     }
     else {
-        my @temp = minmax @nodes;
+        my $max = max @nodes;
-        $new_dbnode = $temp[1] + 1;
+        $new_dbnode = $max + 1;
         logger("use $new_dbnode");
     }
     set_yml_config('dbnode', $new_dbnode);

t/Dockerfile

@@ -12,7 +12,7 @@ RUN apt-get update
 # sourcecode test dependencies
 RUN apt-get install --assume-yes netcat libhash-merge-perl libtemplate-perl \
   libyaml-libyaml-perl libyaml-tiny-perl libyaml-perl \
-  libdata-validate-ip-perl libio-interface-perl liblist-moreutils-perl libregexp-ipv6-perl
+  libdata-validate-ip-perl libio-interface-perl libregexp-ipv6-perl
 # misc stuff for execution/debugging/devel
 RUN apt-get install --assume-yes fakeroot git lsof make strace
 # test execution; we need the backport of python3-junitxml from our own

testsuite/cpanfile

@@ -5,7 +5,6 @@ requires 'Getopt::Long';
 requires 'IO::Interface';
 requires 'IO::Socket';
 requires 'IPC::Open3';
-requires 'List::MoreUtils';
 requires 'Net::Netmask';
 requires 'Pod::Usage';
 requires 'Regexp::IPv6';