gnu: perl: Return #t from all phases.

* gnu/packages/gd.scm (perl-gd-securityimage)
* gnu/packages/libevent.scm (perl-ev)
* gnu/packages/markup.scm (perl-text-markdown-discount)
* gnu/packages/perl-check.scm (perl-test2-bundle-extended)
* gnu/packages/perl.scm (perl-digest-md5, perl-encode-hanextra)
(perl-ipc-run, perl-pathtools)
* gnu/packages/photo.scm (perl-image-exiftool): Return #t from all phases.
This commit is contained in:
Mark H Weaver 2018-06-27 21:01:27 -04:00
parent 366c1cbbc6
commit 4851af9ebe
No known key found for this signature in database
GPG Key ID: 7CEF29847562C516
5 changed files with 13 additions and 8 deletions

View File

@ -142,7 +142,7 @@ you can create PNG images on the fly or modify existing files.")
'(#:phases '(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'set-env (add-after 'unpack 'set-env
(lambda _ (setenv "PERL_USE_UNSAFE_INC" "1")))))) (lambda _ (setenv "PERL_USE_UNSAFE_INC" "1") #t)))))
(native-inputs (native-inputs
`(("perl-module-build" ,perl-module-build))) `(("perl-module-build" ,perl-module-build)))
(propagated-inputs (propagated-inputs

View File

@ -173,7 +173,8 @@ convert it to structurally valid XHTML (or HTML).")
(string-append (string-append
"OTHERLDFLAGS = -lmarkdown -Wl,-rpath=" "OTHERLDFLAGS = -lmarkdown -Wl,-rpath="
(assoc-ref inputs "discount") (assoc-ref inputs "discount")
"/lib")))))))) "/lib")))
#t)))))
(inputs (inputs
`(("discount" ,discount))) `(("discount" ,discount)))
(home-page (home-page

View File

@ -82,7 +82,7 @@ lexically, just dynamically.")
'(#:phases '(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'set-env (add-after 'unpack 'set-env
(lambda _ (setenv "PERL_USE_UNSAFE_INC" "1")))))) (lambda _ (setenv "PERL_USE_UNSAFE_INC" "1") #t)))))
(propagated-inputs (propagated-inputs
`(("perl-importer" ,perl-importer) `(("perl-importer" ,perl-importer)
("perl-term-table" ,perl-term-table) ("perl-term-table" ,perl-term-table)

View File

@ -2877,7 +2877,8 @@ interface for the RFC 2104 HMAC mechanism.")
(add-after 'build 'set-permissions (add-after 'build 'set-permissions
(lambda _ (lambda _
;; Make MD5.so read-write so it can be stripped. ;; Make MD5.so read-write so it can be stripped.
(chmod "blib/arch/auto/Digest/MD5/MD5.so" #o755)))))) (chmod "blib/arch/auto/Digest/MD5/MD5.so" #o755)
#t)))))
(home-page "https://metacpan.org/release/Digest-MD5") (home-page "https://metacpan.org/release/Digest-MD5")
(synopsis "Perl interface to the MD-5 algorithm") (synopsis "Perl interface to the MD-5 algorithm")
(description (description
@ -3003,7 +3004,7 @@ also known as JIS 2000.")
'(#:phases '(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'set-env (add-after 'unpack 'set-env
(lambda _ (setenv "PERL_USE_UNSAFE_INC" "1")))))) (lambda _ (setenv "PERL_USE_UNSAFE_INC" "1") #t)))))
(home-page "https://metacpan.org/release/Encode-HanExtra") (home-page "https://metacpan.org/release/Encode-HanExtra")
(synopsis "Additional Chinese encodings") (synopsis "Additional Chinese encodings")
(description "This Perl module provides Chinese encodings that are not (description "This Perl module provides Chinese encodings that are not
@ -4278,7 +4279,8 @@ run interactively. It also has an option to capture output/error buffers.")
(lambda _ (lambda _
;; This test fails, and we're not really interested in ;; This test fails, and we're not really interested in
;; it, so disable it. ;; it, so disable it.
(delete-file "t/win32_compile.t")))))) (delete-file "t/win32_compile.t")
#t)))))
(home-page "https://metacpan.org/release/IPC-Run") (home-page "https://metacpan.org/release/IPC-Run")
(synopsis "Run system() and background procs w/ piping, redirs, ptys") (synopsis "Run system() and background procs w/ piping, redirs, ptys")
(description "IPC::Run allows you run and interact with child processes (description "IPC::Run allows you run and interact with child processes
@ -6867,7 +6869,8 @@ directory specifications in a cross-platform manner.")
(substitute* "Cwd.pm" (substitute* "Cwd.pm"
(("'/bin/pwd'") (("'/bin/pwd'")
(string-append "'" (assoc-ref inputs "coreutils") (string-append "'" (assoc-ref inputs "coreutils")
"/bin/pwd'")))))))) "/bin/pwd'")))
#t)))))
(inputs (inputs
`(("coreutils" ,coreutils))) `(("coreutils" ,coreutils)))
(home-page "https://metacpan.org/release/PathTools") (home-page "https://metacpan.org/release/PathTools")

View File

@ -227,7 +227,8 @@ MTP, and much more.")
(pm (find-files out "^ExifTool\\.pm$")) (pm (find-files out "^ExifTool\\.pm$"))
(lib (dirname (dirname (car pm))))) (lib (dirname (dirname (car pm)))))
(wrap-program (string-append out "/bin/exiftool") (wrap-program (string-append out "/bin/exiftool")
`("PERL5LIB" prefix (,lib))))))))) `("PERL5LIB" prefix (,lib)))
#t))))))
(home-page "https://metacpan.org/release/Image-ExifTool") (home-page "https://metacpan.org/release/Image-ExifTool")
(synopsis "Program and Perl library to manipulate EXIF and other metadata") (synopsis "Program and Perl library to manipulate EXIF and other metadata")
(description "This package provides the @code{exiftool} command and the (description "This package provides the @code{exiftool} command and the