Changeset 3797 in MondoRescue for branches

Timestamp:

Feb 15, 2024, 4:03:01 PM (15 months ago)

Author:

Bruno Cornec

Message:

Remove usage of obsolete Net::IPv4Addr

File:

• branches/3.3/MondoRescue/bin/mr-net-get-config (modified) (2 diffs)

branches/3.3/MondoRescue/bin/mr-net-get-config

@@ -9 +9 @@
 use strict 'vars';
 use IO::Interface::Simple;
-use Net::IPv4Addr qw( :all );;
+use NetAddr::IP :aton;
+use Data::Validate::IP qw(is_innet_ipv4)
 use Socket;
 use ProjectBuilder::Base;
@@ -160 +161 @@
     pb_log(2, "is noarp\n")       if $if->is_noarp;
     pb_log(2, "--\n");
-    if (ipv4_in_network($if->address, $if->netmask, $hostip)) {
+    if (is_innet_ipv4($hostip, "$if->address/$if->netmask")) {
         pb_log(1, "Netfs server $host is in network $if->address/$if->netmask\n");
         $found = 1;