guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/07: gnu: steghide: Update package style.


From: guix-commits
Subject: 01/07: gnu: steghide: Update package style.
Date: Thu, 3 Nov 2022 20:04:16 -0400 (EDT)

nckx pushed a commit to branch master
in repository guix.

commit 168b946acd7660e4bc9f647f39be8d5455a19fe2
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Oct 30 02:00:05 2022 +0100

    gnu: steghide: Update package style.
    
    * gnu/packages/image.scm (steghide)[arguments]:
    Rewrite as G-expressions.  Don't explicitly return #t from phases.
    [native-inputs, inputs]: Remove input labels.
---
 gnu/packages/image.scm | 31 +++++++++++++------------------
 1 file changed, 13 insertions(+), 18 deletions(-)

diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm
index 557a89aa6b..cfd65c8bfa 100644
--- a/gnu/packages/image.scm
+++ b/gnu/packages/image.scm
@@ -1519,26 +1519,21 @@ differences in file encoding, image quality, and other 
small variations.")
                 "18bxlhbdc3zsmxj84i417xjh0q28kv26q449k23n0a72ldwziix2"))
               (patches (list (search-patch "steghide-fixes.patch")))))
     (build-system gnu-build-system)
+    (arguments
+     (list #:make-flags
+           #~(list "CXXFLAGS=-fpermissive")  ; required for MHashPP.cc
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-before 'configure 'set-perl-search-path
+                 (lambda _
+                   ;; Work around "dotless @INC" build failure.
+                   (setenv "PERL5LIB"
+                           (string-append (getcwd) "/tests:"
+                                          (getenv "PERL5LIB"))))))))
     (native-inputs
-     `(("gettext" ,gettext-minimal)
-       ("libtool" ,libtool)
-       ("perl" ,perl)))                 ;for tests
+     (list gettext-minimal libtool perl))
     (inputs
-     `(("libmhash" ,libmhash)
-       ("libmcrypt" ,libmcrypt)
-       ("libjpeg" ,libjpeg-turbo)
-       ("zlib" ,zlib)))
-    (arguments
-     `(#:make-flags '("CXXFLAGS=-fpermissive")    ;required for MHashPP.cc
-
-       #:phases (modify-phases %standard-phases
-                  (add-before 'configure 'set-perl-search-path
-                    (lambda _
-                      ;; Work around "dotless @INC" build failure.
-                      (setenv "PERL5LIB"
-                              (string-append (getcwd) "/tests:"
-                                             (getenv "PERL5LIB")))
-                      #t)))))
+     (list libjpeg-turbo libmhash libmcrypt zlib))
     (home-page "http://steghide.sourceforge.net";)
     (synopsis "Image and audio steganography")
     (description



reply via email to

[Prev in Thread] Current Thread [Next in Thread]