summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-18 14:19:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-18 14:19:41 +0000
commit4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f (patch)
tree51b70a13a1b9cb17a4a4a50cbeae6c962fb57ee6 /perl-install/install2.pm
parentf0f3f892601f504aa5916c97d39261388992c023 (diff)
downloaddrakx-4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f.tar
drakx-4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f.tar.gz
drakx-4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f.tar.bz2
drakx-4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f.tar.xz
drakx-4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f.zip
since we don't use ramdisk but clp, some code is dead
(remove usingRamdisk(), check_prog(), remove_unused()...)
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm18
1 files changed, 0 insertions, 18 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 507c56af0..4bcc0e656 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -549,22 +549,6 @@ sub main {
#- need to be after oo-izing $o
if ($o->{brltty}) {
symlink "/tmp/stage2/$_", $_ foreach "/etc/brltty";
- if (common::usingRamdisk()) {
- install_any::remove_unused(0);
- mkdir '/tmp/stage2/etc/brltty';
- mkdir '/lib/brltty';
- foreach ($o->{brltty}{table}, "brltty-$o->{brltty}{driver}.hlp") {
- install_any::getAndSaveFile("/etc/brltty/$_") if $_;
- }
- install_any::getAndSaveFile("/lib/brltty/libbrlttyb$o->{brltty}{driver}.so") or do {
- local $| = 1;
- print("Braille driver $o->{brltty}{driver} for BRLTTY was not found.\n",
- "Press ENTER to continue.\n\a");
- <STDIN>;
- };
- install_any::getAndSaveFile("/usr/bin/brltty");
- chmod 0755, "/usr/bin/brltty";
- }
eval { modules::load("serial") };
devices::make($_) foreach $o->{brltty}{device} ? $o->{brltty}{device} : qw(ttyS0 ttyS1);
devices::make("vcsa");
@@ -628,8 +612,6 @@ sub main {
}
$::o = $o = $o_;
- install_any::remove_unused() if common::usingRamdisk();
-
#-the main cycle
my $clicked = 0;
MAIN: for ($o->{step} = $o->{steps}{first};; $o->{step} = getNextStep($o)) {