133/133: gnu: r-gdsfmt: Adjust bad substitution.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit b28cd884b861f623d9691c58e4eb17ae5cf38117
Author: Ricardo Wurmus <rekado@elephly.net>
AuthorDate: Thu Sep 30 00:10:33 2021 +0200

    gnu: r-gdsfmt: Adjust bad substitution.
    
    * gnu/packages/bioconductor.scm (r-gdsfmt)[source]: Include 
beginning-of-line
    anchor in substitution regular expression.
---
 gnu/packages/bioconductor.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/bioconductor.scm b/gnu/packages/bioconductor.scm
index 1e5777d..4cbffac 100644
--- a/gnu/packages/bioconductor.scm
+++ b/gnu/packages/bioconductor.scm
@@ -10548,7 +10548,7 @@ metrics, with methods for objects produced by the 
@code{methylumi} and
            (substitute* "src/Makevars"
              (("all: \\$\\(SHLIB\\)") "all:")
              (("\\$\\(SHLIB\\): liblzma.a") "")
-             (("(ZLIB|LZ4)/.*") "")
+             (("^      (ZLIB|LZ4)/.*") "")
              (("CoreArray/dVLIntGDS.cpp.*")
               "CoreArray/dVLIntGDS.cpp")
              (("CoreArray/dVLIntGDS.o.*")
@@ -10557,8 +10557,7 @@ metrics, with methods for objects produced by the 
@code{methylumi} and
               "PKG_LIBS = -llz4"))
            (substitute* "src/CoreArray/dStream.h"
              (("include \"../(ZLIB|LZ4|XZ/api)/(.*)\"" _ _ header)
-              (string-append "include <" header ">")))
-           #t))))
+              (string-append "include <" header ">")))))))
     (properties `((upstream-name . "gdsfmt")))
     (build-system r-build-system)
     (inputs