summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-04 14:25:50 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-04 14:25:50 +0000
commitb48b3efc4f0ca8eafc4d65987f9948f5509c980d (patch)
tree36b5c93fd71cc6d8ce5db8bf90b0ac3d36222bbc /perl-install/install_any.pm
parent2f4a483b72dae82331dbebb907386dccbd93baf1 (diff)
downloaddrakx-b48b3efc4f0ca8eafc4d65987f9948f5509c980d.tar
drakx-b48b3efc4f0ca8eafc4d65987f9948f5509c980d.tar.gz
drakx-b48b3efc4f0ca8eafc4d65987f9948f5509c980d.tar.bz2
drakx-b48b3efc4f0ca8eafc4d65987f9948f5509c980d.tar.xz
drakx-b48b3efc4f0ca8eafc4d65987f9948f5509c980d.zip
brltty support
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 2ba152c82..478769d8e 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -338,6 +338,7 @@ sub setDefaultPackages {
delete $o->{$_} foreach qw(default_packages compssUsersChoice); #- clean modified variables.
}
+ push @{$o->{default_packages}}, "brltty" if cat_("/proc/cmdline") =~ /brltty=/;
push @{$o->{default_packages}}, "nfs-utils-clients" if $o->{method} eq "nfs";
push @{$o->{default_packages}}, "numlock" if $o->{miscellaneous}{numlock};
push @{$o->{default_packages}}, "kernel22" if !$::oem && c::kernel_version() =~ /^\Q2.2/;
@@ -1114,7 +1115,7 @@ sub check_prog {
sub remove_unused {
$::testing and return;
- if ($::o->isa('interactive::gtk')) {
+ if (@_ ? $_[0] : $::o->isa('interactive::gtk')) {
unlink glob_("/lib/lib$_*") foreach qw(slang newt);
unlink "/usr/bin/perl-install/auto/Newt/Newt.so";
} else {