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

Minor bug fix.

parent 61a2e65a
...@@ -19,9 +19,9 @@ sub Install($$$) ...@@ -19,9 +19,9 @@ sub Install($$$)
Phase "firstuser", "Calling 'firstuser' to create account", sub { Phase "firstuser", "Calling 'firstuser' to create account", sub {
PhaseSkip("$PROTOUSER already created") PhaseSkip("$PROTOUSER already created")
if (-d "$USERROOT/$PROTOUSER"); if (-d "$USERROOT/$PROTOUSER");
my $safe_password = EscapeShellArg($password);
ExecQuietFatal("perl $TOP_OBJDIR/utils/firstuser -b ". 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 { Phase "Fixing", "Fixing up DB state for $PROTOUSER", sub {
my ($exitval, @rows) = 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