From 4ef68a98f078a1114819f85538e49ffa62ddb4ec Mon Sep 17 00:00:00 2001
From: Francesc Guasch <frankie@telecos.upc.edu>
Date: Mon, 6 Nov 2023 11:51:33 +0100
Subject: [PATCH] fix: do not insert network twice

---
 lib/Ravada.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Ravada.pm b/lib/Ravada.pm
index ddd657558..e9f3caa21 100644
--- a/lib/Ravada.pm
+++ b/lib/Ravada.pm
@@ -237,10 +237,11 @@ sub _add_internal_network($self) {
         ." VALUES(?,?,?,1,0)"
     );
     my $n=0;
+    my %done;
     for my $net (split /\n/,$out) {
         next if $net =~ /dev virbr/;
         my ($address) = $net =~ m{(^[\d\.]+/\d+)};
-        next if !$address;
+        next if !$address || $done{address}++;
         $sth->execute("internal$n",$address, ++$n+1);
 
     }