diff --git a/debian/control b/debian/control index e314488a..f412476c 100644 --- a/debian/control +++ b/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, diff --git a/sbin/ngcp-network b/sbin/ngcp-network index 3908a8d9..ca37872d 100755 --- a/sbin/ngcp-network +++ b/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; - $new_dbnode = $temp[1] + 1; + my $max = max @nodes; + $new_dbnode = $max + 1; logger("use $new_dbnode"); } set_yml_config('dbnode', $new_dbnode); diff --git a/t/Dockerfile b/t/Dockerfile index 7174cb90..7a6f2e62 100644 --- a/t/Dockerfile +++ b/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 diff --git a/testsuite/cpanfile b/testsuite/cpanfile index 17f6ba33..0d7f9798 100644 --- a/testsuite/cpanfile +++ b/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';