From 93ed35c09a75a2de511950110400d54ffb0ed845 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 19 Aug 2003 19:02:57 +0000 Subject: fix any::write_passwd_user() call --- perl-install/standalone/adduserdrake | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/standalone/adduserdrake') diff --git a/perl-install/standalone/adduserdrake b/perl-install/standalone/adduserdrake index e5c1fc611..ff024dbf7 100755 --- a/perl-install/standalone/adduserdrake +++ b/perl-install/standalone/adduserdrake @@ -25,7 +25,7 @@ if (my @l = grep { ! /^-/ } @ARGV) { } system("adduser", $_->{name}) foreach @$users; -any::write_passwd_user('', $_, $isMD5) foreach @$users; +any::write_passwd_user($_, $isMD5) foreach @$users; system("pwconv") if $isShadow; any::addUsers($users); -- cgit v1.2.1