From 4f901b9b596dc1f5f310b0ea5468a7a71d2b3a9f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 18 Nov 2004 14:19:41 +0000 Subject: since we don't use ramdisk but clp, some code is dead (remove usingRamdisk(), check_prog(), remove_unused()...) --- perl-install/install2.pm | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 'perl-install/install2.pm') 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"); - ; - }; - 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)) { -- cgit v1.2.1