[bug#63894] [PATCH 22/55] gnu: Add perl-file-libmagic.

[Antero Mejr]

* gnu/packages/perl.scm (perl-file-libmagic): New variable.
---
 gnu/packages/perl.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index e02a42954d..23f0ca4d2d 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -70,6 +70,7 @@ (define-module (gnu packages perl)
   #:use-module (gnu packages bash)
   #:use-module (gnu packages compression)
   #:use-module (gnu packages databases)
+  #:use-module (gnu packages file)
   #:use-module (gnu packages fontutils)
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages gcc)
@@ -5122,6 +5123,30 @@ (define-public perl-file-homedir
 platforms.")
     (license (package-license perl))))
 
+(define-public perl-file-libmagic
+  (package
+    (name "perl-file-libmagic")
+    (version "1.23")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "mirror://cpan/authors/id/D/DR/DROLSKY/File-LibMagic-"
+                    version ".tar.gz"))
+              (sha256
+               (base32
+                "1vk775386z4pz4y8m916rhlczs5rw12s36s3vx67mn5jgkfb3rjj"))))
+    (build-system perl-build-system)
+    (arguments
+     (list #:tests? #f)) ;1/33 fails, "gzip file is application/pdf ..."
+    (native-inputs (list perl-config-autoconf perl-test-fatal))
+    (inputs (list file))
+    (home-page "https://metacpan.org/release/File-LibMagic";)
+    (synopsis "Determine MIME types of data or files using libmagic")
+    (description
+     "The @code{File::LibMagic} module is a simple perl interface to libmagic
+from the file package.")
+    (license (package-license perl))))
+
 (define-public perl-file-path
   (package
     (name "perl-file-path")
-- 
2.39.2