01/06: import: gnome: Exclude version numbers that do not start with a digit.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit c81eeabb99f89f2b7bf1417bfbf992ba47af02a5
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Mar 17 15:03:19 2021 +0100

    import: gnome: Exclude version numbers that do not start with a digit.
    
    Fixes a bug whereby NetworkManager would be updated to version "rc2".
    
    * guix/import/gnome.scm (latest-gnome-release)[even-minor-version?]:
    Change catch-all case to return #f when the first part is not a digit.
---
 guix/import/gnome.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/guix/import/gnome.scm b/guix/import/gnome.scm
index 436ec88..c0ee1bf 100644
--- a/guix/import/gnome.scm
+++ b/guix/import/gnome.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2017, 2019 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2017, 2019, 2021 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -64,8 +64,9 @@ not be determined."
     (match (string-tokenize version %not-dot)
       (((= string->number major) (= string->number minor) . rest)
        (and minor (even? minor)))
-      (_
-       #t)))                                      ;cross fingers
+      (((= string->number major) . _)
+       ;; It should at last start with a digit.
+       major)))
 
   (define upstream-name
     ;; Some packages like "NetworkManager" have camel-case names.