me
/
guix
Archived
1
0
Fork 0
Code

import/cpan: Maybe coerce version to string. 

* guix/import/cpan.scm (cpan-module->sexp) <version>: Test if version in
  meta is string or number.  If it is number, coerce to string.
master
Alex Sassmannshausen 2016-11-12 17:12:53 +01:00
parent d9721bcf27
commit c91b368e96
No known key found for this signature in database
GPG Key ID: 8BC4F4476E8A8E00
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/import/cpan.scm
View File

@ -128,7 +128,9 @@ META."
(string-append "perl-" (string-downcase name)))) (string-append "perl-" (string-downcase name))))
(define version (define version
(assoc-ref meta "version")) (match (assoc-ref meta "version")
((? number? vrs) (number->string vrs))
((? string? vrs) vrs)))
(define core-module? (define core-module?
(let ((perl-version (package-version perl)) (let ((perl-version (package-version perl))