From: Alexandre Derumier <aderumier@odiso.com>
Date: Tue, 5 Jan 2021 09:35:36 +0000 (+0100)
Subject: fix coding style NetAddr::IP->new
X-Git-Url: https://git.puffer.fish/?a=commitdiff_plain;h=533eb3d4e67cbb309553e2af2d4b295555c24fa0;p=matthieu%2Fpve-network.git

fix coding style NetAddr::IP->new

Signed-off-by: Alexandre Derumier <aderumier@odiso.com>
---

diff --git a/PVE/Network/SDN/Dns/PowerdnsPlugin.pm b/PVE/Network/SDN/Dns/PowerdnsPlugin.pm
index 339ac28..096d131 100644
--- a/PVE/Network/SDN/Dns/PowerdnsPlugin.pm
+++ b/PVE/Network/SDN/Dns/PowerdnsPlugin.pm
@@ -237,7 +237,7 @@ sub get_reversedns_zone {
     if (Net::IP::ip_is_ipv4($ip)) {
 	my ($ipblock1, $ipblock2, $ipblock3, $ipblock4) = split(/\./, $ip);
 
-        my $ipv4 = new NetAddr::IP($cidr);
+        my $ipv4 = NetAddr::IP->new($cidr);
 	#private addresse #powerdns built-in private zone : serve-rfc1918
 	if($ipv4->is_rfc1918()) {
 	    if ($ipblock1 == 192) {
diff --git a/PVE/Network/SDN/Ipams/PVEPlugin.pm b/PVE/Network/SDN/Ipams/PVEPlugin.pm
index 2527850..7e2fb77 100644
--- a/PVE/Network/SDN/Ipams/PVEPlugin.pm
+++ b/PVE/Network/SDN/Ipams/PVEPlugin.pm
@@ -131,7 +131,7 @@ sub add_next_freeip {
 	    die "cannot find free IP in subnet '$cidr'\n" if defined($dbsubnet->{ips}->{$network});
 	    $freeip = $network;
 	} else {
-	    my $iplist = new NetAddr::IP($cidr);
+	    my $iplist = NetAddr::IP->new($cidr);
 	    my $broadcast = $iplist->broadcast();
 
 	    while(1) {
diff --git a/PVE/Network/SDN/Subnets.pm b/PVE/Network/SDN/Subnets.pm
index 34b3450..0cbf5fd 100644
--- a/PVE/Network/SDN/Subnets.pm
+++ b/PVE/Network/SDN/Subnets.pm
@@ -234,7 +234,7 @@ sub add_ip {
 
     return if !$subnet || !$ip; 
 
-    my $ipaddr = new NetAddr::IP($ip);
+    my $ipaddr = NetAddr::IP->new($ip);
     $ip = $ipaddr->canon();
 
     my $ipamid = $zone->{ipam};
@@ -281,7 +281,7 @@ sub update_ip {
 
     return if !$subnet || !$ip; 
 
-    my $ipaddr = new NetAddr::IP($ip);
+    my $ipaddr = NetAddr::IP->new($ip);
     $ip = $ipaddr->canon();
 
     my $ipamid = $zone->{ipam};
@@ -325,7 +325,7 @@ sub del_ip {
 
     return if !$subnet || !$ip;
 
-    my $ipaddr = new NetAddr::IP($ip);
+    my $ipaddr = NetAddr::IP->new($ip);
     $ip = $ipaddr->canon();
 
     my $ipamid = $zone->{ipam};