summaryrefslogtreecommitdiffstats
path: root/perl-install/install_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-06 20:12:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-06 20:12:21 +0000
commite254e4769d84e9d8e512eb225d079ca87800b5ef (patch)
treeac3ea3dd110b579118eb5f92e8c3177db7c92871 /perl-install/install_interactive.pm
parent967c918d9eaf22eceee3c3b3ed448d141e38fd00 (diff)
downloaddrakx-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.pm12
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);