diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-11-18 14:19:41 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-11-18 14:19:41 +0000 |
| commit | 4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f (patch) | |
| tree | 51b70a13a1b9cb17a4a4a50cbeae6c962fb57ee6 /perl-install/install2.pm | |
| parent | f0f3f892601f504aa5916c97d39261388992c023 (diff) | |
| download | drakx-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.pm | 18 |
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)) { |