From 9723ce5886e0c291e5337c3328f34d335f77fa88 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 21 Nov 2014 16:29:13 +0100
Subject: [PATCH] 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 file changed, 15 insertions(+)

diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm
index e79be41d1a..be2924c606 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")