diff options
| -rwxr-xr-x | globetrotter/make_live | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/globetrotter/make_live b/globetrotter/make_live index f2d5f0299..00c560c78 100755 --- a/globetrotter/make_live +++ b/globetrotter/make_live @@ -237,12 +237,18 @@ sub installPackages() { pkgs::setSelectedFromCompssList($o->{packages}, \%compssUsersChoice, 4, 0); + my $unselect = sub { + my ($pkg) = @_; + my $p = pkgs::packageByName($o->{packages}, $pkg); + pkgs::unselectPackage($o->{packages}, $p) if $p; + }; + # unselect some packages whose services fsck up the box and whose services are not enabled by appropriate tools: # (shorewall must be deselected before iptables is) - foreach (qw(at hpoj shorewall iptables ntp tmdns zcip )) { - my $p = pkgs::packageByName($o->{packages}, $_); - pkgs::unselectPackage($o->{packages}, $p) if $p; - } + $unselect->($_) foreach qw(at hpoj shorewall iptables ntp tmdns zcip ); + + # unselect uim since uim IM break first time wizard when selecting english: + $unselect->($_) foreach qw(uim-applet uim libuim0); my @toInstall = pkgs::packagesToInstall($o->{packages}); local $ENV{DURING_INSTALL} = 1; |