02/10: gnu-maintenance: Recognize source tarball with "-src" in their name.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 444bb0d857e5c5a4113ae6cb99e47c5306cdd72b
Author: Ludovic Courtès <address@hidden>
Date:   Thu Apr 14 21:48:05 2016 +0200

    gnu-maintenance: Recognize source tarball with "-src" in their name.
    
    * guix/gnu-maintenance.scm (tarball->version): Add special case for
    tarball names containing "-src".
---
 guix/gnu-maintenance.scm |    6 +++++-
 1 files changed, 5 insertions(+), 1 deletions(-)

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index f97f2d1..353892f 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -258,9 +258,13 @@ true."
               (lambda (match)
                 ;; Filter out unrelated files, like `guile-www-1.1.1'.
                 ;; Case-insensitive for things like "TeXmacs" vs. "texmacs".
+                ;; The "-src" suffix is for "freefont-src-20120503.tar.gz".
                 (and=> (match:substring match 1)
                        (lambda (name)
-                         (string-ci=? name project)))))
+                         (or (string-ci=? name project)
+                             (string-ci=? name
+                                          (string-append project
+                                                         "-src")))))))
        (not (regexp-exec %alpha-tarball-rx file))
        (let ((s (sans-extension file)))
          (regexp-exec %package-name-rx s))))