Subject: bug#56781: closed (Re: bug#56781: [PATCH] home: Add explicit dependency on env to activation script.)

From: [email-masked] (GNU bug Tracking System)
Date: Tue, 02 Aug 2022 14:37:02 +0000

Your bug report

#56781: [PATCH] home: Add explicit dependency on env to activation script.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
56781: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=56781
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#56781: [PATCH] home: Add explicit dependency on env to activation script.
From: Andrew Tropin <[email-masked]>
To: 宋文武 <[email-masked]>
Cc: [email-masked]
Date: Tue, 02 Aug 2022 17:35:57 +0300
List-Id: <debbugs-submit.debbugs.gnu.org>

On 2022-08-02 16:54, 宋文武 wrote:

> Andrew Tropin <[email-masked]> writes:
>
>> * gnu/home/services.scm (compute-activation-script): Add explicit dependency
>> on env to activation script.
>
> Pushed, thanks!

Thank you very much!

-- 
Best regards,
Andrew Tropin

Subject: [PATCH] home: Add explicit dependency on env to activation script.
From: Andrew Tropin <[email-masked]>
To: [email-masked]
Date: Tue, 26 Jul 2022 13:10:08 +0300
List-Id: <debbugs-submit.debbugs.gnu.org>

* gnu/home/services.scm (compute-activation-script): Add explicit dependency
on env to activation script.
---
 gnu/home/services.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/gnu/home/services.scm b/gnu/home/services.scm
index d500ba8c68..61a7419f4e 100644
--- a/gnu/home/services.scm
+++ b/gnu/home/services.scm
@@ -20,6 +20,7 @@
 (define-module (gnu home services)
   #:use-module (gnu services)
   #:use-module ((gnu packages package-management) #:select (guix))
+  #:use-module ((gnu packages base) #:select (coreutils))
   #:use-module (guix channels)
   #:use-module (guix monads)
   #:use-module (guix store)
@@ -427,8 +428,9 @@ (define (compute-activation-script init-gexp gexps)
                               #f))))
        (if (file-exists? (he-init-file new-home))
            (let* ((port   ((@ (ice-9 popen) open-input-pipe)
-                           (format #f "source ~a && env -0"
-                                   (he-init-file new-home))))
+                           (format #f "source ~a && ~a -0"
+                                   (he-init-file new-home)
+                                   #$(file-append coreutils "/bin/env"))))
                   (result ((@ (ice-9 rdelim) read-delimited) "" port))
                   (vars (map (lambda (x)
                                (let ((si (string-index x #\=)))
-- 
2.37.0