From f3f0bc3afd3a1ff21d5fada57522fd8201eb6f06 Mon Sep 17 00:00:00 2001
From: Alexandre Derumier <aderumier@odiso.com>
Date: Thu, 25 Jun 2015 07:06:42 +0200
Subject: [PATCH] add veth_delete

Signed-off-by: Alexandre Derumier <aderumier@odiso.com>
---
 src/PVE/Network.pm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/src/PVE/Network.pm b/src/PVE/Network.pm
index a0f658b..23206c1 100644
--- a/src/PVE/Network.pm
+++ b/src/PVE/Network.pm
@@ -161,6 +161,14 @@ sub veth_create {
     &$activate_interface($vethpeer);
 }
 
+sub veth_delete {
+    my ($veth) = @_;
+
+    if (-d "/sys/class/net/$veth") {
+	run_command("/sbin/ip link delete dev $veth", outfunc => sub {}, errfunc => sub {});
+    }
+
+}
 
 my $create_firewall_bridge_linux = sub {
     my ($iface, $bridge) = @_;
@@ -215,9 +223,7 @@ my $cleanup_firewall_bridge = sub {
     }
 
     # delete old vethfw interface
-    if (-d "/sys/class/net/$vethfw") {
-	run_command("/sbin/ip link delete dev $vethfw", outfunc => sub {}, errfunc => sub {});
-    }
+    veth_delete($vethfw);
 
     # cleanup fwbr bridge
     if (-d "/sys/class/net/$fwbr") {
-- 
2.39.2