Subject: [bug#49813] [PATCH 27/34] gnu: john-the-ripper-jumbo: Fix regex in FIND-FILES invocation.

From: Sarah Morgensen <[email-masked]>
Date: Sun, 1 Aug 2021 20:27:21 -0700

See <https://issues.guix.gnu.org/37150> for more information.

* gnu/packages/password-utils.scm (john-the-ripper-jumbo)[arguments]:
Fix regex.
---
 gnu/packages/password-utils.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/password-utils.scm b/gnu/packages/password-utils.scm
index 6a0236e43b..bb5162be72 100644
--- a/gnu/packages/password-utils.scm
+++ b/gnu/packages/password-utils.scm
@@ -981,7 +981,7 @@ between hosts and entries in the password store.")
                              (find-files "." symlink?))
                    (for-each (install-file-to execdir)
                              (cons* "mailer" "benchmark-unify" "relbench"
-                                    (find-files "." ".*\\.js")))
+                                    (find-files "." "\\.js$")))
                    (for-each (lambda (f)
                                (let* ((base (basename f))
                                       (name (substring base 0 (string-index base #\.)))
@@ -990,11 +990,11 @@ between hosts and entries in the password store.")
                                  (when (and (executable-file? f)
                                             (not (file-exists? link)))
                                    (symlink (string-append execdir "/" base) link))))
-                             (find-files "." ".*\\.(pl|py|rb|lua)"))
+                             (find-files "." "\\.(pl|py|rb|lua)$"))
                    (for-each (install-file-to datadir)
-                             (append (find-files "." "(stats|dictionary.*)")
-                                     (find-files "." "(.*\\.chr|.*\\.lst)")
-                                     (find-files "." ".*\\.conf")))
+                             (append (find-files "." "^(stats$|dictionary\\.)")
+                                     (find-files "." "\\.(chr|lst)$")
+                                     (find-files "." "\\.conf$")))
                    (copy-recursively "rules" (string-append datadir "/rules")))
                  (copy-recursively "../doc" docdir)
                  #t)))
-- 
2.31.1