diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-13 13:30:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-13 13:30:37 +0000 |
| commit | 5ad0ed55d7a51db8301f44ed2bafdd48c0682e4c (patch) | |
| tree | bd51eab841234881b3a8923aa21f63909dc0bb00 /perl-install/install_interactive.pm | |
| parent | b95c12f4cff7dc36b247391348d2781e70fad29c (diff) | |
| download | drakx-5ad0ed55d7a51db8301f44ed2bafdd48c0682e4c.tar drakx-5ad0ed55d7a51db8301f44ed2bafdd48c0682e4c.tar.gz drakx-5ad0ed55d7a51db8301f44ed2bafdd48c0682e4c.tar.bz2 drakx-5ad0ed55d7a51db8301f44ed2bafdd48c0682e4c.tar.xz drakx-5ad0ed55d7a51db8301f44ed2bafdd48c0682e4c.zip | |
no_comment
Diffstat (limited to 'perl-install/install_interactive.pm')
| -rw-r--r-- | perl-install/install_interactive.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/install_interactive.pm b/perl-install/install_interactive.pm index 641d9ad59..e51fa5a8b 100644 --- a/perl-install/install_interactive.pm +++ b/perl-install/install_interactive.pm @@ -6,15 +6,14 @@ use strict; use vars; use common qw(:common :functional); -use fs; -use fsedit; -use log; use partition_table qw(:types); use partition_table_raw; use detect_devices; use install_steps; use devices; -use modules; +use fsedit; +use log; +use fs; sub tellAboutProprietaryModules { @@ -30,6 +29,7 @@ sub partition_with_diskdrake { my $ok; do { $ok = 1; + require diskdrake; diskdrake::main($hds, $o->{raid}, interactive_gtk->new, $o->{partitions}, $nowizard); delete $o->{wizard} and return partitionWizard($o, 'nodiskdrake'); my @fstab = fsedit::get_fstab(@$hds); @@ -154,7 +154,6 @@ When sure, press Ok.")) or return; } if (!$readonly && ref($o) =~ /gtk/) { #- diskdrake only available in gtk for now - require diskdrake; $solutions{diskdrake} = [ 0, ($::beginner ? _("Expert mode") : _("Use diskdrake")), sub { partition_with_diskdrake($o, $hds, 'nowizard') } ]; } |