parse_address_list: improve type detection

diff --git a/src/PVE/Firewall.pm b/src/PVE/Firewall.pm
index 37dbcb0acf57c11e6a739762abd7a144b1286da8..d20f956d3be2d8ea78b58f0bb125bbe198c9720d 100644 (file)
--- a/src/PVE/Firewall.pm
+++ b/src/PVE/Firewall.pm
@@ -806,13 +806,14 @@ sub parse_address_list {
 
     foreach my $elem (split(/,/, $str)) {
        $count++;
-       if (!Net::IP->new($elem)) {
+       my $ip = Net::IP->new($elem);
+       if (!$ip) {
            my $err = Net::IP::Error();
            die "invalid IP address: $err\n";
        }
        $iprange = 1 if $elem =~ m/-/;
 
-       my $new_ipversion = Net::IP::ip_get_version($elem); #fixme : don't work with range
+       my $new_ipversion = Net::IP::ip_is_ipv6($ip->ip()) ? 6 : 4;
 
        die "detected mixed ipv4/ipv6 addresses in address list '$str'\n"
            if defined($ipversion) && ($new_ipversion != $ipversion);