From ca2276d8ccbeb86090f4aff68faa2dee40db4681 Mon Sep 17 00:00:00 2001 From: Steffen Beyer Date: Mon, 13 Apr 2026 10:10:16 +0200 Subject: [PATCH] Script mounted-root metadata copies --- modules/fruix/system/freebsd/media.scm | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/modules/fruix/system/freebsd/media.scm b/modules/fruix/system/freebsd/media.scm index ef05dde..52a803c 100644 --- a/modules/fruix/system/freebsd/media.scm +++ b/modules/fruix/system/freebsd/media.scm @@ -1116,12 +1116,15 @@ (define (install-metadata-file-into-mounted-root privileged-policy source-path mounted-target-path) (when (file-exists? source-path) - (run-assembly-privileged-command privileged-policy - 'copy-into-mounted-root - "mkdir" "-p" (dirname mounted-target-path)) - (run-assembly-privileged-command privileged-policy - 'copy-into-mounted-root - "cp" "-p" source-path mounted-target-path))) + (run-assembly-privileged-script + privileged-policy + "fruix-install-metadata-copy" + (string-append + "#!/bin/sh\n" + "set -eu\n" + "mkdir -p " (shell-quote (dirname mounted-target-path)) "\n" + "cp -p " (shell-quote source-path) " " (shell-quote mounted-target-path) "\n") + #:operations '(copy-into-mounted-root)))) (define (render-installer-apply-script store-dir plan-directory) (let ((target-rootfs (string-append plan-directory "/target-rootfs"))