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

[Maxime Devos]

It is required for cross-compilation.

* gnu/packages/photo.scm
  (rapid-photo-downloader)[inputs]: Add 'bash-minimal'.
  (perl-image-exiftool)[inputs]: Likewise.
  (darktable)[inputs]: Likewise.
  (entangle)[inputs]: Likewise.
---
 gnu/packages/photo.scm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/photo.scm b/gnu/packages/photo.scm
index fa90647a2d..2a214f861b 100644
--- a/gnu/packages/photo.scm
+++ b/gnu/packages/photo.scm
@@ -40,6 +40,7 @@
   #:use-module (gnu packages algebra)
   #:use-module (gnu packages autotools)
   #:use-module (gnu packages base)
+  #:use-module (gnu packages bash)
   #:use-module (gnu packages boost)
   #:use-module (gnu packages check)
   #:use-module (gnu packages cmake)
@@ -107,7 +108,8 @@
        ("intltool" ,intltool)
        ("gobject-introspection" ,gobject-introspection)))
     (inputs
-     `(("gdk-pixbuf" ,gdk-pixbuf)
+     `(("bash" ,bash-minimal) ; for wrap-program
+       ("gdk-pixbuf" ,gdk-pixbuf)
        ("gexiv2" ,gexiv2)
        ("gst-libav" ,gst-libav)
        ("gst-plugins-base" ,gst-plugins-base)
@@ -346,6 +348,7 @@ MTP, and much more.")
                (wrap-program (string-append out "/bin/exiftool")
                  `("PERL5LIB" prefix (,lib)))
                #t))))))
+    (inputs `(("bash" ,bash-minimal))) ; for wrap-program
     (home-page "https://metacpan.org/release/Image-ExifTool";)
     (synopsis "Program and Perl library to manipulate EXIF and other metadata")
     (description "This package provides the @code{exiftool} command and the
@@ -537,7 +540,8 @@ photographic equipment.")
        ("python" ,python-wrapper)
        ("ruby" ,ruby)))
     (inputs
-     `(("cairo" ,cairo)
+     `(("bash" ,bash-minimal) ; for wrap-program
+       ("cairo" ,cairo)
        ("colord-gtk" ,colord-gtk) ;optional, for color profile support
        ("cups" ,cups) ;optional, for printing support
        ("curl" ,curl)
@@ -672,7 +676,8 @@ such as Batch image processing.")
        ("pkg-config" ,pkg-config)
        ("xmllint" ,libxml2)))
     (inputs
-     `(("gdk-pixbuf" ,gdk-pixbuf)
+     `(("bash" ,bash-minimal) ; for wrap-program
+       ("gdk-pixbuf" ,gdk-pixbuf)
        ("gexiv2" ,gexiv2)
        ("gst-plugins-base" ,gst-plugins-base)
        ("gstreamer" ,gstreamer)
-- 
2.32.0