diff options
Diffstat (limited to 'perl-install/standalone/adduserdrake')
-rwxr-xr-x | perl-install/standalone/adduserdrake | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/standalone/adduserdrake b/perl-install/standalone/adduserdrake index 1ce283f8c..3b620d020 100755 --- a/perl-install/standalone/adduserdrake +++ b/perl-install/standalone/adduserdrake @@ -6,6 +6,9 @@ use common qw(:common :functional :system :file); use interactive; use any; +for (my $i=0; $i<=$#ARGV; $i++) { + $ARGV[$i] eq '--embedded' and $::XID=$ARGV[$i+1] and $::isEmbedded = 1; +} local $_ = join '', @ARGV; /-h/ and die "usage: adduserdrake [--beginner] [--expert] [<users...>]\n"; |