From 2afd42c1631793fc5c186b82fbdbb3964f6ae464 Mon Sep 17 00:00:00 2001
From: swedebugia <address@hidden>
Date: Fri, 7 Dec 2018 12:14:37 +0100
Subject: [PATCH] gnu: Add perl-term-readline-gnu -- flags not honored

---
 gnu/packages/perl.scm      | 37 ++++++++++++++++++++++++++++++++++++-
 guix/build-system/perl.scm |  3 ++-
 2 files changed, 38 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index cbdf070e8..d41182962 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -51,7 +51,8 @@
   #:use-module (gnu packages freedesktop)
   #:use-module (gnu packages perl-check)
   #:use-module (gnu packages perl-web)
-  #:use-module (gnu packages pkg-config))
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages readline))
 
 ;;;
 ;;; Please: Try to add new module packages in alphabetic order.
@@ -8115,6 +8116,40 @@ other terminal related features, including retrieval/modification of the
 screen size, and retrieval/modification of the control characters.")
     (license (package-license perl))))
 
+(define-public perl-term-readline-gnu
+  (package
+   (name "perl-term-readline-gnu")
+   (version "1.35")
+   (source
+    (origin
+      (method url-fetch)
+      (uri (string-append
+            "mirror://cpan/authors/id/H/HA/HAYASHI/Term-ReadLine-Gnu-"
+            version
+            ".tar.gz"))
+      (sha256
+       (base32
+        "09cixf93w9y443jj291viw3r292xskihx3af65pnbkb7mga34pap"))))
+   (build-system perl-build-system)
+   (arguments
+    '(#:configure-flags '("--test"
+                             ;;(string-append "-libdir=" (getenv
+                                        ;;"LIBRARY_PATH"))
+                          )
+      #:module-build-flags '("--test"
+                             ;;(string-append "-libdir=" (getenv
+                                        ;;"LIBRARY_PATH"))
+                             )))
+   (native-inputs
+    `(("perl-module-build" ,perl-module-build)
+      ("readline" ,readline)))
+   (home-page
+    "https://metacpan.org/release/Term-ReadLine-Gnu")
+   (synopsis
+    "Perl extension for the GNU Readline/History Library")
+   (description "This module enables support for the GNU Readline/History Library.")
+   (license perl-license)))
+
 (define-public perl-term-size-any
   (package
     (name "perl-term-size-any")
diff --git a/guix/build-system/perl.scm b/guix/build-system/perl.scm
index 06af1dd20..a06cf5b44 100644
--- a/guix/build-system/perl.scm
+++ b/guix/build-system/perl.scm
@@ -78,6 +78,7 @@
 
 (define* (perl-build store name inputs
                      #:key
+                     (configure-flags ''())
                      (search-paths '())
                      (tests? #t)
                      (parallel-build? #t)
@@ -111,6 +112,7 @@ provides a `Makefile.PL' file as its build system."
                    #:make-maker? ,make-maker?
                    #:make-maker-flags ,make-maker-flags
                    #:module-build-flags ,module-build-flags
+                   #:configure-flags ,configure-flags
                    #:phases ,phases
                    #:system ,system
                    #:test-target "test"
@@ -119,7 +121,6 @@ provides a `Makefile.PL' file as its build system."
                    #:parallel-tests? ,parallel-tests?
                    #:outputs %outputs
                    #:inputs %build-inputs)))
-
   (define guile-for-build
     (match guile
       ((? package?)
-- 
2.19.2