summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorYves Duret <yduret@mandriva.com>2001-03-22 15:49:19 +0000
committerYves Duret <yduret@mandriva.com>2001-03-22 15:49:19 +0000
commit2e4468cb74fd8003a997988945a5ca6e40707f3d (patch)
tree36ef6d1fc1b8646766b7e3f38090f2d9bb47b918 /perl-install
parent71f6fb8e2eacc2b6f34b3041267a08b77d46f583 (diff)
downloaddrakx-2e4468cb74fd8003a997988945a5ca6e40707f3d.tar
drakx-2e4468cb74fd8003a997988945a5ca6e40707f3d.tar.gz
drakx-2e4468cb74fd8003a997988945a5ca6e40707f3d.tar.bz2
drakx-2e4468cb74fd8003a997988945a5ca6e40707f3d.tar.xz
drakx-2e4468cb74fd8003a997988945a5ca6e40707f3d.zip
nmap
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootlook.pm18
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");