03/51: gnu: photo: Add 'bash' input for 'wrap-program'.

[guix-commits]

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

commit 95d51b069cde376080d6fbde362e2341b32cca0b
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Fri Jul 2 12:07:14 2021 +0200

    gnu: photo: Add 'bash' input for 'wrap-program'.
    
    It is required for cross-compilation.
    
    * gnu/packages/photo.scm
    (rapid-photo-downloader)[inputs]: Add 'bash-minimal'.
    (perl-image-exiftool)[inputs]: Likewise.
    (entangle)[inputs]: Likewise.
    
    Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
    Change-Id: I843c7530ae24969660a00c0da7754e51475ea00d
---
 gnu/packages/photo.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/photo.scm b/gnu/packages/photo.scm
index 78ae61c799..df3deebf90 100644
--- a/gnu/packages/photo.scm
+++ b/gnu/packages/photo.scm
@@ -114,7 +114,8 @@
     (native-inputs
      (list file intltool 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)
@@ -328,6 +329,7 @@ MTP, and much more.")
                           (lib (dirname (dirname (car pm)))))
                      (wrap-program (string-append #$output "/bin/exiftool")
                        `("PERL5LIB" prefix (,lib)))))))))
+    (inputs (list bash-minimal))
     (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
@@ -733,7 +735,8 @@ such as Batch image processing.")
            perl
            pkg-config))
     (inputs
-     (list gdk-pixbuf
+     (list bash-minimal
+           gdk-pixbuf
            gexiv2
            gst-plugins-base
            gstreamer