From f13e73df102c6b1d429df2ac898e438ed0cd76a6 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 17 May 2023 22:24:11 +0200 Subject: import: cpan: Remove unary 'string-append' call. * guix/import/cpan.scm (package->upstream-name): Remove useless 'string-append'. --- guix/import/cpan.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'guix/import') diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm index da47018c35..d7f300777e 100644 --- a/guix/import/cpan.scm +++ b/guix/import/cpan.scm @@ -154,7 +154,7 @@ return \"Test-Simple\"" ((? origin? origin) (match (origin-uri origin) ((or (? string? url) (url _ ...)) - (match (string-match (string-append "([^/]*)-v?[0-9\\.]+") url) + (match (string-match "([^/]*)-v?[0-9\\.]+" url) (#f #f) (m (match:substring m 1)))) (_ #f))) -- cgit v1.2.3