From 34f9582aad557cd816bb3215fb4d7da7d1c5229a Mon Sep 17 00:00:00 2001
From: Leo Famulari <leo@famulari.name>
Date: Thu, 13 Oct 2016 22:33:54 -0400
Subject: [PATCH] gnu: dbus: Replace with 1.10.12 [security fix].

Fixes <https://bugs.freedesktop.org/show_bug.cgi?id=98157>
"format string vulnerability processing ActivationFailure messages"

* gnu/packages/glib.scm (dbus)[replacement]: New field.
(dbus-1.10.12): New variable.
---
 gnu/packages/glib.scm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/gnu/packages/glib.scm b/gnu/packages/glib.scm
index 9ac67c6b2b..e549dd7377 100644
--- a/gnu/packages/glib.scm
+++ b/gnu/packages/glib.scm
@@ -64,6 +64,7 @@ (define-module (gnu packages glib)
 (define dbus
   (package
     (name "dbus")
+    (replacement dbus-1.10.12)
     (version "1.10.8")
     (source (origin
               (method url-fetch)
@@ -131,6 +132,21 @@ (define dbus
 shared NFS home directories.")
     (license license:gpl2+)))                     ; or Academic Free License 2.1
 
+(define dbus-1.10.12
+  (package
+    (inherit dbus)
+    (name "dbus")
+    (source
+      (let ((version "1.10.12"))
+        (origin
+          (method url-fetch)
+          (uri (string-append
+                "https://dbus.freedesktop.org/releases/dbus/dbus-"
+                version ".tar.gz"))
+          (sha256
+           (base32
+            "0pa71vf5c0d7k3gni06iascmplj0j5g70wbc833ayvi71d1pj2i1")))))))
+
 (define glib
   (package
    (name "glib")