From 18b8bbb3043382e946b3d6bf6d4c464a5406e35e Mon Sep 17 00:00:00 2001
From: Eric Bavier <bavier@member.fsf.org>
Date: Tue, 7 Apr 2015 16:54:44 -0500
Subject: [PATCH] gnu: Add XML-SAX;

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

diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm
index e298369668..80f8582521 100644
--- a/gnu/packages/xml.scm
+++ b/gnu/packages/xml.scm
@@ -200,6 +200,40 @@ maintain a prefix to namespace URI map, and provides a number of basic
 checks.")
     (license (package-license perl))))
 
+(define-public perl-xml-sax
+  (package
+    (name "perl-xml-sax")
+    (version "0.99")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append "mirror://cpan/authors/id/G/GR/GRANTM/"
+                           "XML-SAX-" version ".tar.gz"))
+       (sha256
+        (base32
+         "115dypb50w1l94y3iwihv5nkixbsv1cxiqkd93y4rk5n6s74pc1j"))))
+    (build-system perl-build-system)
+    (propagated-inputs
+     `(("perl-xml-namespacesupport" ,perl-xml-namespacesupport)
+       ("perl-xml-sax-base" ,perl-xml-sax-base)))
+    (arguments
+     `(#:phases (modify-phases %standard-phases
+                  (add-before
+                   install augment-path
+                   ;; The install target tries to load the newly-installed
+                   ;; XML::SAX module, but can't find it, so we need to tell
+                   ;; perl where to look.
+                   (lambda* (#:key outputs #:allow-other-keys)
+                     (setenv "PERL5LIB"
+                             (string-append (getenv "PERL5LIB") ":"
+                                            (assoc-ref outputs "out")
+                                            "/lib/perl5/site_perl")))))))
+    (home-page "http://search.cpan.org/dist/XML-SAX")
+    (synopsis "Perl API for XML")
+    (description "XML::SAX consists of several framework classes for using and
+building Perl SAX2 XML parsers, filters, and drivers.")
+    (license (package-license perl))))
+
 (define-public perl-xml-sax-base
   (package
     (name "perl-xml-sax-base")