This is an automated email from the git hooks/post-receive script.
guix_mirror_bot pushed a commit to branch master
in repository guix.
The following commit(s) were added to refs/heads/master by this push:
new f2ead3989e guix: import: cpan: Fill in description field in template.
f2ead3989e is described below
commit f2ead3989e93a78fbcfa1788074742b71aec3319
Author: jgart <[email protected]>
AuthorDate: Fri Feb 20 23:20:57 2026 -0500
guix: import: cpan: Fill in description field in template.
* guix/import/cpan.scm (cpan-module->sexp): Fill in description field in
template.
* tests/import/cpan.scm (test-source): Update test to account for change in
description text.
Change-Id: I3bc3e4c2cc90f7a1f1f0d56e9213b6a1d0b8e841
Signed-off-by: jgart <[email protected]>
---
guix/import/cpan.scm | 5 +++--
tests/import/cpan.scm | 2 +-
2 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm
index bc5dfd1847..3d4508b11e 100644
--- a/guix/import/cpan.scm
+++ b/guix/import/cpan.scm
@@ -287,6 +287,7 @@ in RELEASE, a <cpan-release> record."
(let* ((tarball (with-store store
(download-to-store store source-url)))
(inputs (cpan-module-inputs release))
+ (synopsis-text (cpan-release-abstract release))
(sexp
`(package
(name ,(cpan-name->downstream-name name))
@@ -305,8 +306,8 @@ in RELEASE, a <cpan-release> record."
(filter (upstream-input-type-predicate
'propagated)
inputs))
(home-page ,(cpan-home name))
- (synopsis ,(cpan-release-abstract release))
- (description fill-in-yourself!)
+ (synopsis ,synopsis-text)
+ (description ,(string-append synopsis-text "."))
(license ,(string->license (cpan-release-license release))))))
(values sexp (map upstream-input-name inputs))))
diff --git a/tests/import/cpan.scm b/tests/import/cpan.scm
index 42e8c4e42c..aec66122fb 100644
--- a/tests/import/cpan.scm
+++ b/tests/import/cpan.scm
@@ -86,7 +86,7 @@
(propagated-inputs (list perl-test-script))
(home-page "https://metacpan.org/release/Foo-Bar";)
(synopsis "Fizzle Fuzz")
- (description fill-in-yourself!)
+ (description "Fizzle Fuzz.")
(license perl-license))
(string=? (bytevector->nix-base32-string
(call-with-input-string test-source port-sha256))
