diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:26:42 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:26:42 +0000 |
| commit | 5ad4993ef08462f365c3f679c525f6ef7bda6549 (patch) | |
| tree | f27be665152c61d58d62a8a9a345db8321dd6940 /perl-install/install/install2.pm | |
| parent | c2a4fb4d1b5822892cf9d9e362830daba841bb77 (diff) | |
| download | drakx-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/install/install2.pm')
| -rw-r--r-- | perl-install/install/install2.pm | 14 |
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"; |