[bug#49327] [PATCH core-updates 028/128] gnu: cdrom: Add 'bash' input for 'wrap-program'.

[Maxime Devos]

It is required for cross-compilation.

* gnu/packages/cdrom.scm
  (xorisso)[inputs]: Add 'bash-minimal'.
  (dvdstyler)[inputs]: Likewise.
  (abcde)[inputs]: Likewise.
  (asunder)[inputs]: Likewise.
  (cdemu-client)[inputs]: Likewise.
---
 gnu/packages/cdrom.scm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/cdrom.scm b/gnu/packages/cdrom.scm
index de72cc0856..4919039d39 100644
--- a/gnu/packages/cdrom.scm
+++ b/gnu/packages/cdrom.scm
@@ -44,6 +44,7 @@
   #:use-module (gnu packages acl)
   #:use-module (gnu packages audio)
   #:use-module (gnu packages autotools)
+  #:use-module (gnu packages bash)
   #:use-module (gnu packages bison)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages flex)
@@ -198,7 +199,8 @@ libcdio.")
                  `("PATH" ":" prefix (,(string-append out "/bin"))))
                #t))))))
     (inputs
-     `(("acl" ,acl)
+     `(("bash" ,bash-minimal) ; for wrap-program
+       ("acl" ,acl)
        ("readline" ,readline)
        ("tk" ,tk)
        ("zlib" ,zlib)))
@@ -525,6 +527,7 @@ capacity is user-selectable.")
     (inputs ; TODO package bundled wxvillalib
      `(("wxwidgets" ,wxwidgets-3.1)
        ("wssvg" ,wxsvg)
+       ("bash" ,bash-minimal) ; for wrap-program
        ("dbus" ,dbus)
        ("cdrtools" ,cdrtools)
        ("dvd+rw-tools" ,dvd+rw-tools)
@@ -681,7 +684,8 @@ from an audio CD.")
              #t)))
        #:tests? #f)) ; no test target
 
-    (inputs `(("wget" ,wget)
+    (inputs `(("bash" ,bash-minimal) ; for wrap-program
+              ("wget" ,wget)
               ("which" ,which)
               ("cdparanoia" ,cdparanoia)
               ("cd-discid" ,cd-discid)
@@ -771,7 +775,8 @@ information is written to standard error.")
     (native-inputs `(("intltool" ,intltool)
                      ("pkg-config" ,pkg-config)))
     ;; TODO: Add the necessary packages for Musepack encoding.
-    (inputs `(("gtk+-2" ,gtk+-2)
+    (inputs `(("bash" ,bash-minimal) ; for wrap-program
+              ("gtk+-2" ,gtk+-2)
               ("glib" ,glib)
               ("libcddb" ,libcddb)
               ("cdparanoia" ,cdparanoia)
@@ -1025,7 +1030,8 @@ drive and disc (including CD-ROMs and DVD-ROMs).")
      `(("pkg-config" ,pkg-config)
        ("intltool" ,intltool)))
     (inputs
-     `(("python" ,python)
+     `(("bash" ,bash-minimal) ; for wrap-program
+       ("python" ,python)
        ("python-pygobject" ,python-pygobject)
        ("cdemu-daemon" ,cdemu-daemon)))
     (arguments
-- 
2.32.0