guix_mirror_bot pushed a commit to branch gnome-team
in repository guix.

commit 8b88fd2fd5e1e593ff58e550bb0a093d68a616ff
Author: Maxim Cournoyer <[email protected]>
AuthorDate: Fri Mar 13 15:37:30 2026 +0900

    gnu: libbluray: Update to 1.4.1.
    
    * gnu/packages/video.scm (libbluray): Update to 1.4.1.
    [source]: Adjust URI.
    [build-system]: Switch to meson-build-system.
    [#:configure-flags]: Delete.
    [#:phases] {move-packages-to-libs}: Move after install phase and adjust
    accordingly.
    {fix-dlopen-paths}: Order after unpack phase.
    [inputs]: Add libudfread.
    
    Change-Id: I249215317cf51e84152115983706670319dd1bb9
---
 gnu/packages/video.scm | 42 +++++++++++++++++++++---------------------
 1 file changed, 21 insertions(+), 21 deletions(-)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 07638463cc..e0706c902e 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -3741,22 +3741,32 @@ soon as it starts.")
 (define-public libbluray
   (package
     (name "libbluray")
-    (version "1.3.4")
+    (version "1.4.1")
     (source (origin
               (method url-fetch)
               (uri (string-append "https://download.videolan.org/videolan/";
                                   name "/" version "/"
-                                  name "-" version ".tar.bz2"))
+                                  name "-" version ".tar.xz"))
               (sha256
                (base32
-                "0aszpsz3pc7p7z6yahlib4na585m6pqbg2d9dkpyipgml1lgv3s7"))))
-    (build-system gnu-build-system)
+                "0jglp44wsjpp5k3mrxskfj9b488ksn7cj2dhxfjdqa3z150drdbn"))))
+    (build-system meson-build-system)
     (arguments
      (list
-      #:configure-flags #~(list "--disable-bdjava-jar" "--disable-static")
       #:phases
       #~(modify-phases %standard-phases
-          (add-after 'unpack 'move-packages-to-libs
+          (add-after 'unpack 'fix-dlopen-paths
+            (lambda* (#:key inputs #:allow-other-keys)
+              (define (lib/no.so library)
+                (let ((found (search-input-file inputs library)))
+                  (substring found 0 (- (string-length found)
+                                        (string-length ".so")))))
+              (substitute* "src/libbluray/disc/aacs.c"
+                (("\"libaacs\"")
+                 (string-append "\"" (lib/no.so "lib/libaacs.so") "\""))
+                (("\"libbdplus\"")
+                 (string-append "\"" (lib/no.so "lib/libbdplus.so") "\"")))))
+          (add-after 'install 'move-packages-to-libs
             ;; Avoid the need to propagate libxml2 et al. by referring to them
             ;; directly.
             (lambda* (#:key inputs #:allow-other-keys)
@@ -3764,27 +3774,17 @@ soon as it starts.")
                 (dirname
                  (search-input-file inputs
                                     (string-append "lib/lib" lib ".so"))))
-              (substitute* "src/libbluray.pc.in"
-                (("@PACKAGES@") "")
+              (substitute* (string-append #$output
+                                          "/lib/pkgconfig/libbluray.pc")
+                (("^Requires.private.*") "")
                 (("^Libs.private:" field)
                  (string-append field
                                 " -L" (search-input-vicinity "xml2")
                                 " -L" (search-input-vicinity "freetype")
                                 " -L" (search-input-vicinity "fontconfig")
-                                " -lxml2 -lfreetype -lfontconfig")))))
-          (add-before 'build 'fix-dlopen-paths
-            (lambda* (#:key inputs #:allow-other-keys)
-              (define (lib/no.so library)
-                (let ((found (search-input-file inputs library)))
-                  (substring found 0 (- (string-length found)
-                                        (string-length ".so")))))
-              (substitute* "src/libbluray/disc/aacs.c"
-                (("\"libaacs\"")
-                 (string-append "\"" (lib/no.so "lib/libaacs.so") "\""))
-                (("\"libbdplus\"")
-                 (string-append "\"" (lib/no.so "lib/libbdplus.so") 
"\""))))))))
+                                " -lxml2 -lfreetype -lfontconfig"))))))))
     (native-inputs (list pkg-config))
-    (inputs (list fontconfig freetype libaacs libbdplus libxml2))
+    (inputs (list fontconfig freetype libaacs libbdplus libudfread libxml2))
     (home-page "https://www.videolan.org/developers/libbluray.html";)
     (synopsis "Blu-Ray Disc playback library")
     (description

Reply via email to