01/01: gnu: ghostscript: Replace with 9.22 [security fixes].

[Leo Famulari]

lfam pushed a commit to branch master
in repository guix.

commit 550d88cf24dbe843f23e21a50725c67b076969c4
Author: Leo Famulari <address@hidden>
Date:   Mon Oct 9 14:33:17 2017 -0400

    gnu: ghostscript: Replace with 9.22 [security fixes].
    
    Fixes CVE-2017-{7948,7975,8908,9216,9610,9611,9612,9618,9619,9620,9726,9727,
    9739,9740,9835}.
    
    * gnu/packages/ghostscript.scm (ghostscript)[replacement]: New field.
    (ghostscript-9.22): New variables.
---
 gnu/packages/ghostscript.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/gnu/packages/ghostscript.scm b/gnu/packages/ghostscript.scm
index d5d5aa2..28477b2 100644
--- a/gnu/packages/ghostscript.scm
+++ b/gnu/packages/ghostscript.scm
@@ -131,6 +131,7 @@ printing, and psresize, for adjusting page sizes.")
 (define-public ghostscript
   (package
     (name "ghostscript")
+    (replacement ghostscript-9.22)
     (version "9.21")
     (source
       (origin
@@ -254,6 +255,25 @@ output file formats and printers.")
     (home-page "https://www.ghostscript.com/";)
     (license license:agpl3+)))
 
+(define ghostscript-9.22
+  (package
+    (inherit ghostscript)
+    (version "9.22")
+    (source
+      (origin
+        (inherit (package-source ghostscript))
+        (uri (string-append "https://github.com/ArtifexSoftware/";
+                            "ghostpdl-downloads/releases/download/gs"
+                            (string-delete #\. version)
+                            "/ghostscript-" version ".tar.xz"))
+        (sha256
+         (base32
+          "1fyi4yvdj39bjgs10klr31cda1fbx1ar7a7b7yz7v68gykk65y61"))
+        (patches (search-patches "ghostscript-runpath.patch"
+                                 "ghostscript-no-header-creationdate.patch"
+                                 "ghostscript-no-header-id.patch"
+                                 "ghostscript-no-header-uuid.patch"))))))
+
 (define-public ghostscript/x
   (package/inherit ghostscript
     (name (string-append (package-name ghostscript) "-with-x"))