02/03: gnu: libmediainfo and mediainfo: Fix build.

[guix-commits]

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

commit a0b2b4f1e95b876cbf5a3b8ca25f901504fc1acf
Author: Leo Famulari <leo@famulari.name>
AuthorDate: Sun Apr 23 20:20:51 2023 -0400

    gnu: libmediainfo and mediainfo: Fix build.
    
    * gnu/packages/video.scm (libmediainfo, mediainfo)[arguments]: Add a 
shebang to
    the autogen.sh script in the 'change-to-build-dir' phases.
---
 gnu/packages/video.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 240730844a..5d7347cf5e 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -4183,6 +4183,13 @@ practically any type of media.")
          (add-after 'unpack 'change-to-build-dir
            (lambda _
              (chdir "Project/GNU/Library")
+             ;; XXX Add a shebang to the script to avoid an error like:
+             ;; "In execvp of ./autogen.sh: Exec format error"
+             ;; The string replaced is just a code comment.
+             ;; See the similar substitution made in mediainfo.
+             (substitute* "autogen.sh"
+               (("#libtoolize")
+                "#!/bin/sh"))
              #t)))))
     (home-page "https://mediaarea.net/en/MediaInfo";)
     (synopsis "Library for retrieving media metadata")
@@ -4238,6 +4245,13 @@ MPEG-2, MPEG-4, DVD (VOB)...
          (add-after 'unpack 'change-to-build-dir
            (lambda _
              (chdir "Project/GNU/CLI")
+             ;; XXX Add a shebang to the script to avoid an error like:
+             ;; "In execvp of ./autogen.sh: Exec format error"
+             ;; The string replaced is just a code comment.
+             ;; See the similar substitution made in libmediainfo.
+             (substitute* "autogen.sh"
+               (("#libtoolize")
+                "#!/bin/sh"))
              #t)))))
     (home-page "https://mediaarea.net/en/MediaInfo";)
     (synopsis "Utility for reading media metadata")