aboutsummaryrefslogtreecommitdiff
path: root/gnu/build/activation.scm
diff options
context:
space:
mode:
authorkanichos@yandex.ru <kanichos@yandex.ru>2020-01-02 15:13:45 +0300
committerLudovic Courtès <ludo@gnu.org>2020-01-06 16:31:54 +0100
commit83460433b94487198750ad0bcc6f3869f68a8c8f (patch)
treeff753c0e8464ff1c200f24f002f11e7058aa33f9 /gnu/build/activation.scm
parent6a6b8a3fcfc35a5e7b10e7c2a9a75e909354d4d6 (diff)
downloadguix-83460433b94487198750ad0bcc6f3869f68a8c8f.tar
guix-83460433b94487198750ad0bcc6f3869f68a8c8f.tar.gz
activation: Check whether /proc/sys/kernel/modprobe exists.
* gnu/build/activation.scm (activate-modprobe): Check whether /proc/sys/kernel/modprobe exists before writing to it. Co-authored-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'gnu/build/activation.scm')
-rw-r--r--gnu/build/activation.scm10
1 files changed, 7 insertions, 3 deletions
diff --git a/gnu/build/activation.scm b/gnu/build/activation.scm
index 6d69628eb2..30f5e87d5a 100644
--- a/gnu/build/activation.scm
+++ b/gnu/build/activation.scm
@@ -281,9 +281,13 @@ second element is the name it should appear at, such as:
(define (activate-modprobe modprobe)
"Tell the kernel to use MODPROBE to load modules."
- (call-with-output-file "/proc/sys/kernel/modprobe"
- (lambda (port)
- (display modprobe port))))
+
+ ;; If the kernel was built without loadable module support, this file is
+ ;; unavailable, so check for its existence first.
+ (when (file-exists? "/proc/sys/kernel/modprobe")
+ (call-with-output-file "/proc/sys/kernel/modprobe"
+ (lambda (port)
+ (display modprobe port)))))
(define (activate-firmware directory)
"Tell the kernel to look for device firmware under DIRECTORY. This