From e254e4769d84e9d8e512eb225d079ca87800b5ef Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 6 Sep 2000 20:12:21 +0000
Subject: no_comment

---
 perl-install/install_interactive.pm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_interactive.pm')

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);
 	
-- 
cgit v1.2.1