From a9a3dcc9563d8388a9c7ebeeb990069b0371154d Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 28 Nov 2023 12:29:31 +0000 Subject: Set %file-port-name-canonicalization to avoid readlink syscalls As Guix does. --- scripts/guix-build-coordinator-agent.in | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) (limited to 'scripts') diff --git a/scripts/guix-build-coordinator-agent.in b/scripts/guix-build-coordinator-agent.in index 006e1f8..6d94302 100644 --- a/scripts/guix-build-coordinator-agent.in +++ b/scripts/guix-build-coordinator-agent.in @@ -193,15 +193,16 @@ (else (error "unknown coordinator interface"))))) - (run-agent uuid - coordinator-interface - (delete-duplicates (assq-ref opts 'systems)) - (assq-ref opts 'max-parallel-builds) - (assq-ref opts 'max-allocated-builds) - (assq-ref opts 'max-parallel-uploads) - (or (assq-ref opts 'derivation-substitute-urls) - (assq-ref opts 'substitute-urls)) - (or (assq-ref opts 'non-derivation-substitute-urls) - (assq-ref opts 'substitute-urls)) - (assq-ref opts 'metrics-file) - (assq-ref opts 'max-1min-load-average)))) + (with-fluids ((%file-port-name-canonicalization 'none)) + (run-agent uuid + coordinator-interface + (delete-duplicates (assq-ref opts 'systems)) + (assq-ref opts 'max-parallel-builds) + (assq-ref opts 'max-allocated-builds) + (assq-ref opts 'max-parallel-uploads) + (or (assq-ref opts 'derivation-substitute-urls) + (assq-ref opts 'substitute-urls)) + (or (assq-ref opts 'non-derivation-substitute-urls) + (assq-ref opts 'substitute-urls)) + (assq-ref opts 'metrics-file) + (assq-ref opts 'max-1min-load-average))))) -- cgit v1.2.3