Commit d94ea298 authored by Leigh B Stoller's avatar Leigh B Stoller

Minor bug fix.

parent 61a2e65a
......@@ -19,9 +19,9 @@ sub Install($$$)
Phase "firstuser", "Calling 'firstuser' to create account", sub {
PhaseSkip("$PROTOUSER already created")
if (-d "$USERROOT/$PROTOUSER");
my $safe_password = EscapeShellArg($password);
ExecQuietFatal("perl $TOP_OBJDIR/utils/firstuser -b ".
(defined($password) ? " -p $safe_password" : ""));
(defined($password) ?
" -p " . EscapeShellArg($password) : ""));
};
Phase "Fixing", "Fixing up DB state for $PROTOUSER", sub {
my ($exitval, @rows) =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment