From 168b946acd7660e4bc9f647f39be8d5455a19fe2 Mon Sep 17 00:00:00 2001 From: Tobias Geerinckx-Rice Date: Sun, 30 Oct 2022 02:00:05 +0100 Subject: 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(-) (limited to 'gnu/packages') 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 -- cgit v1.2.3