summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorAurélien Lefebvre <alefebvre@mandriva.com>2009-08-18 09:33:10 +0000
committerAurélien Lefebvre <alefebvre@mandriva.com>2009-08-18 09:33:10 +0000
commit6e9e39a91cfe774862b5c69723ff5e4683a54384 (patch)
tree449e7e91216cd36961fa4bf92599a683f2c071db /perl-install/any.pm
parenta4712b9b970e6581a049de477773159b8e0d86c1 (diff)
downloaddrakx-6e9e39a91cfe774862b5c69723ff5e4683a54384.tar
drakx-6e9e39a91cfe774862b5c69723ff5e4683a54384.tar.gz
drakx-6e9e39a91cfe774862b5c69723ff5e4683a54384.tar.bz2
drakx-6e9e39a91cfe774862b5c69723ff5e4683a54384.tar.xz
drakx-6e9e39a91cfe774862b5c69723ff5e4683a54384.zip
adduserdrake: added weakness check for root password
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 70a112ec3..2c5d46f94 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -826,7 +826,7 @@ sub ask_user_and_root {
}, [
$superuser ? (
{ label => N("Set administrator (root) password"), title => 1 },
- { label => N("Password"), val => \$superuser->{password}, hidden => 1, alignment => 'right',
+ { label => N("Password"), val => \$superuser->{password}, hidden => 1, alignment => 'right', weakness_check => 1,
validate => sub { authentication::check_given_password($in, $superuser, 2 * $security) } },
{ label => N("Password (again)"), val => \$superuser->{password2}, hidden => 1, alignment => 'right' },
) : (),