04/04: gnu: WebKitGTK: Embed absolute file name of libWPEBackend-fdo-1.0.so.

[guix-commits]

mbakke pushed a commit to branch core-updates
in repository guix.

commit 1714edc3d4e8d6da1b0cdef300ae882d0885f182
Author: Marius Bakke <address@hidden>
Date:   Sun Oct 6 14:24:04 2019 +0200

    gnu: WebKitGTK: Embed absolute file name of libWPEBackend-fdo-1.0.so.
    
    Fixes <https://bugs.gnu.org/37545>.
    Reported by Vagrant Cascadian <address@hidden>.
    
    * gnu/packages/webkit.scm (webkitgtk)[arguments]: Add phase.
---
 gnu/packages/webkit.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/packages/webkit.scm b/gnu/packages/webkit.scm
index 3169c7d..bda0fc6 100644
--- a/gnu/packages/webkit.scm
+++ b/gnu/packages/webkit.scm
@@ -165,6 +165,13 @@ engine that uses Wayland for graphics output.")
                                            "/xml/dtd/docbook/docbookx.dtd"))))
                        (find-files "Source" "\\.sgml$"))
              #t))
+         (add-after 'unpack 'embed-absolute-wpebackend-reference
+           (lambda* (#:key inputs #:allow-other-keys)
+             (let ((wpebackend-fdo (assoc-ref inputs "wpebackend-fdo")))
+               (substitute* 
"Source/WebKit/UIProcess/glib/WebProcessPoolGLib.cpp"
+                 (("libWPEBackend-fdo-([\\.0-9]+)\\.so" all version)
+                  (string-append wpebackend-fdo "/lib/" all)))
+               #t)))
          (add-after 'install 'move-doc-files
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out"))