diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-09 03:02:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-09 03:02:37 +0000 |
| commit | 950fe7395621dc21885ac3e1280e007248646608 (patch) | |
| tree | e3016a95189ee4c75a05b816d91dd22f071bd2c0 /perl-install/install_steps_interactive.pm | |
| parent | c7df31b71335c18d60cdb8a7f5fee24d56cca4b8 (diff) | |
| download | drakx-backup-do-not-use-950fe7395621dc21885ac3e1280e007248646608.tar drakx-backup-do-not-use-950fe7395621dc21885ac3e1280e007248646608.tar.gz drakx-backup-do-not-use-950fe7395621dc21885ac3e1280e007248646608.tar.bz2 drakx-backup-do-not-use-950fe7395621dc21885ac3e1280e007248646608.tar.xz drakx-backup-do-not-use-950fe7395621dc21885ac3e1280e007248646608.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index ae96317f2..c5f1a4526 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -21,6 +21,7 @@ use run_program; use commands; use fsedit; use network; +use raid; use mouse; use modules; use lang; @@ -36,7 +37,7 @@ use lilo; #-###################################################################################### sub errorInStep($$) { my ($o, $err) = @_; - $err =~ s/(.*) at .*?$/$1\./ unless $::testing; #- avoid error message. + $err =~ s/ at .*?$/\./ unless $::testing; #- avoid error message. $o->ask_warn(_("Error"), [ _("An error occurred"), $err ]); } @@ -211,7 +212,7 @@ sub formatPartitions { foreach (@_) { if ($_->{toFormat}) { $w->set(_("Formatting partition %s", $_->{device})); - fs::format_part($_); + raid::format_part($o->{raid}, $_); } } } @@ -595,7 +596,7 @@ _("Use NIS") => { val => \$o->{authentification}{NIS}, type => 'bool', text => _ ], complete => sub { $sup->{password} eq $sup->{password2} or $o->ask_warn('', [ _("The passwords do not match"), _("Please try again") ]), return (1,1); - length $sup->{password} < ($o->{security} > 3 ? 10 : 6) + length $sup->{password} < 2 * $o->{security} and $o->ask_warn('', _("This password is too simple")), return (1,0); return 0 } |