From c91b368e96de9446bab37e7fab7d7c8ba71af946 Mon Sep 17 00:00:00 2001
From: Alex Sassmannshausen <alex@pompo.co>
Date: Sat, 12 Nov 2016 17:12:53 +0100
Subject: [PATCH] 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.
---
guix/import/cpan.scm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm
index 5b7c47554ae..d244969c9ea 100644
--- a/guix/import/cpan.scm
+++ b/guix/import/cpan.scm
@@ -128,7 +128,9 @@ (define (guix-name name)
(string-append "perl-" (string-downcase name))))
(define version
- (assoc-ref meta "version"))
+ (match (assoc-ref meta "version")
+ ((? number? vrs) (number->string vrs))
+ ((? string? vrs) vrs)))
(define core-module?
(let ((perl-version (package-version perl))
--
GitLab