summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-07-22 03:57:50 +0000
committerOlivier Blin <oblin@mandriva.org>2005-07-22 03:57:50 +0000
commitf87bfd1b4eb538514eb3d927bd0cd29a0a0593f3 (patch)
tree5bcde8da9710fed1852c8c368ce348b9ea7bfea0 /perl-install/standalone
parentacf59eadcf95b724bbbc36f3e0fd5f6096ea0501 (diff)
downloaddrakx-f87bfd1b4eb538514eb3d927bd0cd29a0a0593f3.tar
drakx-f87bfd1b4eb538514eb3d927bd0cd29a0a0593f3.tar.gz
drakx-f87bfd1b4eb538514eb3d927bd0cd29a0a0593f3.tar.bz2
drakx-f87bfd1b4eb538514eb3d927bd0cd29a0a0593f3.tar.xz
drakx-f87bfd1b4eb538514eb3d927bd0cd29a0a0593f3.zip
simplify
Diffstat (limited to 'perl-install/standalone')
-rw-r--r--perl-install/standalone/net_applet4
1 files changed, 1 insertions, 3 deletions
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);