From f87bfd1b4eb538514eb3d927bd0cd29a0a0593f3 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 22 Jul 2005 03:57:50 +0000 Subject: simplify --- perl-install/standalone/net_applet | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet index 53eb02bdf..53bdd8b74 100644 --- a/perl-install/standalone/net_applet +++ b/perl-install/standalone/net_applet @@ -211,9 +211,7 @@ sub go2State { $current_state = $state_type; $current_interface = $interface; if ($menu) { - foreach (keys %wireless_networks) { - $wireless_networks{$_}{menuitem}->get_parent and $menu->remove($wireless_networks{$_}{menuitem}); - } + $_->{menuitem}->get_parent and $menu->remove($_->{menuitem}) foreach values %wireless_networks; $menu->destroy; } $menu = generate_menu($state_type, $interface); -- cgit v1.2.1