package: Fix default profile ownership check when it's just been created.

* guix/scripts/package.scm (guix-package)[ensure-default-profile]: Check
  whether S is true before checking its owner.  Fixes the case where we
  built %PROFILE-DIRECTORY just above.
This commit is contained in:
Ludovic Courtès 2013-05-24 23:14:19 +02:00
parent 929c0f69de
commit cba363bea8
1 changed files with 1 additions and 1 deletions

View File

@ -644,7 +644,7 @@ more information.~%"))
(rtfm)))) (rtfm))))
;; Bail out if it's not owned by the user. ;; Bail out if it's not owned by the user.
(unless (= (stat:uid s) (getuid)) (unless (or (not s) (= (stat:uid s) (getuid)))
(format (current-error-port) (format (current-error-port)
(_ "error: directory `~a' is not owned by you~%") (_ "error: directory `~a' is not owned by you~%")
%profile-directory) %profile-directory)