diff options
| -rw-r--r-- | perl-install/bootlook.pm | 18 |
1 files changed, 10 insertions, 8 deletions
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"); |