03/05: gnu: qpdf: Fix cross-building.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 6dfa3e5d8553bfb811a1e93a3184a1ba8c7a4f4f
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Mon Apr 10 23:16:08 2023 +0300

    gnu: qpdf: Fix cross-building.
    
    * gnu/packages/pdf.scm (qpdf)[arguments]: When cross-building add
    configure-flags to set /dev/random and /dev/urandom as existing.
---
 gnu/packages/pdf.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/pdf.scm b/gnu/packages/pdf.scm
index dd1064bd6c..17637af0f6 100644
--- a/gnu/packages/pdf.scm
+++ b/gnu/packages/pdf.scm
@@ -910,7 +910,13 @@ line tools for batch rendering @command{pdfdraw}, 
rewriting files
               "0yw2cpw7ygfd6jlgpwbi8vsnvv9p55zxp9h17x77z2qq733pf8jx"))))
    (build-system gnu-build-system)
    (arguments
-    `(#:disallowed-references (,perl)
+    `(#:configure-flags '(,@(if (%current-target-system)
+                              ;; We cannot check for these devices
+                              ;; when cross compiling.
+                              `("ac_cv_file__dev_random=yes"
+                                "ac_cv_file__dev_urandom=yes")
+                              '()))
+      #:disallowed-references (,perl)
       #:phases
       (modify-phases %standard-phases
         (add-before 'configure 'patch-paths