From c5b9c52a2e49c0d109d72b87c8adda657cf5ee1a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 8 Jul 2004 05:04:23 +0000 Subject: when adding users during install, suggest the user names found in /home --- 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 4db218671..40659017f 100755 --- a/perl-install/standalone/adduserdrake +++ b/perl-install/standalone/adduserdrake @@ -19,7 +19,7 @@ if (my @l = grep { ! /^-/ } @ARGV) { $users = [ map { { name => $_, realname => $_ } } @l ]; } else { $in = 'interactive'->vnew('su'); - any::ask_users($in, $users, $ENV{SECURE_LEVEL}); + any::ask_users($in, $users, $ENV{SECURE_LEVEL}, []); } system("adduser", $_->{name}) foreach @$users; -- cgit v1.2.1