Minor bug fix.

d94ea298 · Leigh B Stoller · 61a2e65a · d94ea298
Commit d94ea298 authored Jan 28, 2015 by Leigh B Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

install/phases/boss/firstuser install/phases/boss/firstuser +2 -2

No files found.
--- a/install/phases/boss/firstuser
+++ b/install/phases/boss/firstuser
@@ -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) =