diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-06 20:12:21 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-06 20:12:21 +0000 |
commit | e254e4769d84e9d8e512eb225d079ca87800b5ef (patch) | |
tree | ac3ea3dd110b579118eb5f92e8c3177db7c92871 /perl-install/install_interactive.pm | |
parent | 967c918d9eaf22eceee3c3b3ed448d141e38fd00 (diff) | |
download | drakx-backup-do-not-use-e254e4769d84e9d8e512eb225d079ca87800b5ef.tar drakx-backup-do-not-use-e254e4769d84e9d8e512eb225d079ca87800b5ef.tar.gz drakx-backup-do-not-use-e254e4769d84e9d8e512eb225d079ca87800b5ef.tar.bz2 drakx-backup-do-not-use-e254e4769d84e9d8e512eb225d079ca87800b5ef.tar.xz drakx-backup-do-not-use-e254e4769d84e9d8e512eb225d079ca87800b5ef.zip |
no_comment
Diffstat (limited to 'perl-install/install_interactive.pm')
-rw-r--r-- | perl-install/install_interactive.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm index 8b6bf9f92..2fa917564 100644 --- a/perl-install/install_interactive.pm +++ b/perl-install/install_interactive.pm @@ -17,12 +17,20 @@ use devices; use modules; +sub tellAboutProprietaryModules { + my ($o); + my @l = grep {$_} map { $_->{driver} =~ /^Bad:(.*)/ && $1 } detect_devices::probeall(); + $o->ask_warn('', +_("Some hardware on your computer needs ``proprietary'' drivers to work. +You can find some information about them at: %s"), join(", ", @l)) if @l; +} + sub partition_with_diskdrake { my ($o, $hds, $nowizard) = @_; - my $ok = 1; + my $ok; do { + $ok = 1; diskdrake::main($hds, $o->{raid}, interactive_gtk->new, $o->{partitions}, $nowizard); - log::l("diskdrake done"); delete $o->{wizard} and return partitionWizard($o, 'nodiskdrake'); my @fstab = fsedit::get_fstab(@$hds); |