diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-02-04 14:25:50 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-02-04 14:25:50 +0000 |
commit | b48b3efc4f0ca8eafc4d65987f9948f5509c980d (patch) | |
tree | 36b5c93fd71cc6d8ce5db8bf90b0ac3d36222bbc /perl-install/install_any.pm | |
parent | 2f4a483b72dae82331dbebb907386dccbd93baf1 (diff) | |
download | drakx-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.pm | 3 |
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 { |