01/01: gnu: dosbox: Update to 0.74-2.

[guix-commits]

rhelling pushed a commit to branch master
in repository guix.

commit 478040d4fb383d372ba17c83f54bbb2d24c6c372
Author: Rutger Helling <address@hidden>
Date:   Mon Jan 14 09:04:23 2019 +0100

    gnu: dosbox: Update to 0.74-2.
    
    * gnu/packages/emulators.scm (dosbox): Update to 0.74-2.
    [arguments]: Use invoke in 'autogen.sh phase.
---
 gnu/packages/emulators.scm | 21 +++++++++------------
 1 file changed, 9 insertions(+), 12 deletions(-)

diff --git a/gnu/packages/emulators.scm b/gnu/packages/emulators.scm
index 2d21f12..06c1a63 100644
--- a/gnu/packages/emulators.scm
+++ b/gnu/packages/emulators.scm
@@ -8,7 +8,7 @@
 ;;; Copyright © 2016, 2017, 2018 Efraim Flashner <address@hidden>
 ;;; Copyright © 2017, 2018 Nicolas Goaziou <address@hidden>
 ;;; Copyright © 2017 Tobias Geerinckx-Rice <address@hidden>
-;;; Copyright © 2017, 2018 Rutger Helling <address@hidden>
+;;; Copyright © 2017, 2018, 2019 Rutger Helling <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -237,26 +237,23 @@ turbo speed, networked multiplayer, and graphical 
enhancements.")
 (define-public dosbox
   (package
     (name "dosbox")
-    (version "0.74.svn3947")
+    (version "0.74-2")
     (source (origin
-              (method svn-fetch)
-              (uri (svn-reference
-                    (url 
"http://svn.code.sf.net/p/dosbox/code-0/dosbox/trunk/";)
-                    (revision 3947)))
-              (file-name (string-append name "-" version "-checkout"))
-              ;; Use SVN head, since the last release (2010) is incompatible
-              ;; with GCC 4.8+ (see
-              ;; <https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=624976>).
+              (method url-fetch)
+              (uri (string-append "https://sourceforge.net/projects/dosbox";
+                                  "/files/dosbox/" version "/dosbox-"
+                                  version ".tar.gz/download"))
+              (file-name (string-append name "-" version ".tar.gz"))
               (sha256
                (base32
-                "1p918j6090d1nkvgq7ifvmn506zrdmyi32y7p3ms40d5ssqjg8fj"))))
+                "1ksp1b5szi0vy4x55rm3j1y9wq5mlslpy8llpg87rpdyjlsk0xvh"))))
     (build-system gnu-build-system)
     (arguments
      `(#:phases (modify-phases %standard-phases
                   (add-after
                    'unpack 'autogen.sh
                    (lambda _
-                     (zero? (system* "sh" "autogen.sh")))))))
+                     (invoke "sh" "autogen.sh"))))))
     (native-inputs
      `(("autoconf" ,autoconf)
        ("automake" ,automake)))