04/04: gnu: patch: Add 2.7.4 and make it a replacement for the default one.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 3f11f01fa88f2fbdf46e05117b82909b1b224d28
Author: Ludovic Courtès <address@hidden>
Date:   Fri Feb 6 13:48:57 2015 +0100

    gnu: patch: Add 2.7.4 and make it a replacement for the default one.
    
    * gnu/packages/base.scm (patch-2.7.4, patch-CVE-2015-1196): New
      variables.
      (patch): Add 'replacement' field.
---
 gnu/packages/base.scm |   21 ++++++++++++++++++++-
 1 files changed, 20 insertions(+), 1 deletions(-)

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index 1f479cc..be33cb2 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2012, 2013, 2014 Ludovic Courtès <address@hidden>
+;;; Copyright © 2012, 2013, 2014, 2015 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2014 Andreas Enge <address@hidden>
 ;;; Copyright © 2012 Nikita Karetnikov <address@hidden>
 ;;; Copyright © 2014 Mark H Weaver <address@hidden>
@@ -167,8 +167,27 @@ files depending on the contents of the diff file.  It 
accepts several
 different diff formats.  It may also be used to revert previously applied
 differences.")
    (license gpl3+)
+   (replacement patch-CVE-2015-1196)
    (home-page "http://savannah.gnu.org/projects/patch/";)))
 
+(define-public patch-2.7.4
+  (package
+    (inherit patch)
+    (version "2.7.4")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnu/patch/patch-"
+                                  version ".tar.xz"))
+              (sha256
+               (base32
+                "02gikxjvcxysr4l65c8vivgz62xmalp0av5ypzff8vqhrq3vpb0f"))))
+    (replacement #f)))
+
+(define patch-CVE-2015-1196
+  (package (inherit patch-2.7.4)
+    ;; Keep the old version number so it can be used as a 'replacement'.
+    (version (package-version patch))))
+
 (define-public diffutils
   (package
    (name "diffutils")