From: Jean-Pierre De Jesus DIAZ <m...@jeandudey.tech> * modules/past/packages/tls.scm (openssl-1.0): Fix a time bomb in cms-test.pl due to expired certificates. --- modules/past/packages/tls.scm | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-)
diff --git a/modules/past/packages/tls.scm b/modules/past/packages/tls.scm index cbc9834..a494e1c 100644 --- a/modules/past/packages/tls.scm +++ b/modules/past/packages/tls.scm @@ -140,6 +140,20 @@ ,@(if (%current-target-system) '((getenv "CONFIGURE_TARGET_ARCH")) '()))))) + (add-before 'check 'patch-util/shlib_wrap.sh + (lambda* (#:key tests? native-inputs inputs #:allow-other-keys) + (when tests? + (let ((lib (search-input-file (or native-inputs inputs) + "lib/faketime/libfaketime.so.1")) + (release-date "2019-12-20 13:25:43")) + ;; Invoking "faketime make ..." does not work as this script + ;; sets its own LD_PRELOAD variable, so re-export it with + ;; libfaketime and set the fake time. + (substitute* "util/shlib_wrap.sh" + (("cmd=\"\\$1\\$\\{EXE_EXT\\}\"" all) + (string-append "export LD_PRELOAD=" lib ":$LD_PRELOAD\n" + "export FAKETIME=\"" release-date "\"\n" + all))))))) (add-after 'install 'move-static-libraries (lambda* (#:key outputs #:allow-other-keys) ;; Move static libraries to the "static" output. @@ -175,7 +189,7 @@ (delete-file-recursively (string-append out "/share/openssl-" ,version "/misc")) #t)))))) - (native-inputs (list (S "perl"))) + (native-inputs (list (S "libfaketime") (S "perl"))) (native-search-paths (list (search-path-specification (variable "SSL_CERT_DIR") base-commit: d60a388678098e6de60ca1a65806903b5739da29 -- 2.41.0