summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/drakids6
1 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/standalone/drakids b/perl-install/standalone/drakids
index 8bfcf6704..9ed6c2edf 100644
--- a/perl-install/standalone/drakids
+++ b/perl-install/standalone/drakids
@@ -99,10 +99,8 @@ sub handle_init() {
sub list_remove_addr {
my ($list, @addr) = @_;
- #- workaround buggy Gtk2::SimpleList array abstraction, it corrupts references
- foreach (0 .. $#{$list}) {
- member($list->[$_][0], @addr) and splice @$list, $_, 1;
- }
+ #- workaround buggy Gtk2::SimpleList array abstraction, it destroys references
+ @$list = map { member($_->[0], @addr) ? () : [ @$_ ] } @$list;
}
#- may throw an exception