summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:26:42 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:26:42 +0000
commit5ad4993ef08462f365c3f679c525f6ef7bda6549 (patch)
treef27be665152c61d58d62a8a9a345db8321dd6940 /perl-install
parentc2a4fb4d1b5822892cf9d9e362830daba841bb77 (diff)
downloaddrakx-5ad4993ef08462f365c3f679c525f6ef7bda6549.tar
drakx-5ad4993ef08462f365c3f679c525f6ef7bda6549.tar.gz
drakx-5ad4993ef08462f365c3f679c525f6ef7bda6549.tar.bz2
drakx-5ad4993ef08462f365c3f679c525f6ef7bda6549.tar.xz
drakx-5ad4993ef08462f365c3f679c525f6ef7bda6549.zip
(init_brltty) split it out of main()
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/install2.pm14
1 files changed, 8 insertions, 6 deletions
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 37a70eed6..43086895c 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -334,6 +334,13 @@ sub init_local_install {
$o->{mouse} = mouse::fullname2mouse('Universal|Any PS/2 & USB mice');
}
+sub init_brltty() {
+ symlink "/tmp/stage2/$_", $_ foreach "/etc/brltty";
+ devices::make($_) foreach $o->{brltty}{device} ? $o->{brltty}{device} : qw(ttyS0 ttyS1);
+ devices::make("vcsa");
+ run_program::run("brltty");
+}
+
sub sig_segv_handler() {
my $msg = "segmentation fault: install crashed (maybe memory is missing?)\n" . backtrace();
log::l("$msg\n");
@@ -556,12 +563,7 @@ sub main {
harddrake::sound::configure_sound_slots($o->{modules_conf});
#- need to be after oo-izing $o
- if ($o->{brltty}) {
- symlink "/tmp/stage2/$_", $_ foreach "/etc/brltty";
- devices::make($_) foreach $o->{brltty}{device} ? $o->{brltty}{device} : qw(ttyS0 ttyS1);
- devices::make("vcsa");
- run_program::run("brltty");
- }
+ init_brltty() if $o->{brltty};
devices::make('tty') if $o->{interactive} eq "curses";