From 542baadb7374a4afd1d6c6c17438ea87eb91e4f2 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Tue, 15 Feb 2005 19:08:29 +0000
Subject: delete unblacklisted entries from the list

---
 perl-install/standalone/drakids | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/perl-install/standalone/drakids b/perl-install/standalone/drakids
index f6ce3c00e..06f35d490 100644
--- a/perl-install/standalone/drakids
+++ b/perl-install/standalone/drakids
@@ -95,4 +95,6 @@ sub handle_blacklist {
 sub unblacklist {
     my @addr = uniq(map { $blacklist->{data}->[$_]->[0] } $blacklist->get_selected_indices);
     $activefw->unblacklist($_) foreach @addr;
+    #- delete from the list even if the above calls were unsuccessful
+    @{$blacklist->{data}} = grep { !member($_->[0], @addr) } @{$blacklist->{data}};
 }
-- 
cgit v1.2.1