From 2e4468cb74fd8003a997988945a5ca6e40707f3d Mon Sep 17 00:00:00 2001 From: Yves Duret Date: Thu, 22 Mar 2001 15:49:19 +0000 Subject: nmap --- perl-install/bootlook.pm | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'perl-install/bootlook.pm') diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm index 1a6b8e0c9..f2f9e7e27 100644 --- a/perl-install/bootlook.pm +++ b/perl-install/bootlook.pm @@ -297,14 +297,16 @@ sub updateInit sub updateAurora { if ($a_mode) { - mapn { if (_$_[0]->get_active()) { - symlinkf("/lib/aurora/Monitors/$_[1]", "/etc/aurora/Monitor"); - $in->standalone::pkgs_install($_[2]) if !(-e "/lib/aurora/Monitors/$_[1]"); - } - }, - (["$a_h_button","NewStyle-WsLib",qw(Aurora-Monitor-NewStyle-WsLib)], - ["$a_v_button","Traditional-WsLib", qw(Aurora-Monitor-Traditional-WsLib)], - ["$a_g_button","Traditional-Gtk+", qw(Aurora-Monitor-Traditional-Gtk+)]); + mapn { + print " !!\n"; + if ($_[0]) { + symlinkf("/lib/aurora/Monitors/$_[1]", "/etc/aurora/Monitor"); + $in->standalone::pkgs_install($_[2]) if !(-e "/lib/aurora/Monitors/$_[1]"); + } + }, + ([$a_h_button->get_active(), "NewStyle-WsLib", qw(Aurora-Monitor-NewStyle-WsLib)], + [$a_v_button->get_active(), "Traditional-WsLib", qw(Aurora-Monitor-Traditional-WsLib)], + [$a_g_button->get_active(), "Traditional-Gtk+", qw(Aurora-Monitor-Traditional-Gtk+)]); # if ($a_h_button->get_active()) { # symlinkf("/lib/aurora/Monitors/NewStyle-WsLib", "/etc/aurora/Monitor"); -- cgit v1.2.1