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 <jgart@dismail.de>

2 files changed, 4 insertions, 3 deletions

diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm
index bc5dfd18479..3d4508b11e6 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 42e8c4e42c1..aec66122fb1 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))