02/02: gnu: dbus: Add 1.8.10 as a replacement.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 9723ce5886e0c291e5337c3328f34d335f77fa88
Author: Ludovic Courtès <address@hidden>
Date:   Fri Nov 21 16:29:13 2014 +0100

    gnu: dbus: Add 1.8.10 as a replacement.
    
    * gnu/packages/glib.scm (dbus)[replacement]: New field.
      (dbus-1.8.10): New variable.
---
 gnu/packages/glib.scm |   15 +++++++++++++++
 1 files changed, 15 insertions(+), 0 deletions(-)

diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm
index e79be41..be2924c 100644
--- a/gnu/packages/glib.scm
+++ b/gnu/packages/glib.scm
@@ -55,6 +55,7 @@
   (package
     (name "dbus")
     (version "1.8.8")
+    (replacement dbus-1.8.10)                     ;fix for CVE-2014-7824
     (source (origin
              (method url-fetch)
              (uri
@@ -113,6 +114,20 @@ or through unencrypted TCP/IP suitable for use behind a 
firewall with
 shared NFS home directories.")
     (license license:gpl2+)))                     ; or Academic Free License 
2.1
 
+(define-public dbus-1.8.10
+  (let ((real-version "1.8.10"))
+    (package (inherit dbus)
+      (source (origin
+                (method url-fetch)
+                (uri
+                 (string-append 
"http://dbus.freedesktop.org/releases/dbus/dbus-";
+                                real-version ".tar.gz"))
+                (sha256
+                 (base32
+                  "13mgvwigm931r8n9363imnn0vn6dvc0m322k3p8fs5c8nvyqggqh"))
+                (patches (list (search-patch "dbus-localstatedir.patch")))))
+      (replacement #f))))
+
 (define glib
   (package
    (name "glib")