From b3342b545a0147e2b501a94179cea6257fbe5213 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 7 Jul 2014 23:54:28 +0200
Subject: gnu: dmd: Update to 0.2.

* gnu/packages/admin.scm (dmd): Update to 0.2; remove 'patches'.
* gnu/packages/patches/dmd-getpw.patch,
  gnu/packages/patches/dmd-tests-longer-sleeps.patch: Remove.
* gnu-system.am (dist_patch_DATA): Adjust accordingly.
---
 gnu/packages/patches/dmd-getpw.patch               | 19 --------
 gnu/packages/patches/dmd-tests-longer-sleeps.patch | 52 ----------------------
 2 files changed, 71 deletions(-)
 delete mode 100644 gnu/packages/patches/dmd-getpw.patch
 delete mode 100644 gnu/packages/patches/dmd-tests-longer-sleeps.patch

(limited to 'gnu/packages/patches')

diff --git a/gnu/packages/patches/dmd-getpw.patch b/gnu/packages/patches/dmd-getpw.patch
deleted file mode 100644
index c4f9c35951..0000000000
--- a/gnu/packages/patches/dmd-getpw.patch
+++ /dev/null
@@ -1,19 +0,0 @@
-When bootstrapping and running as PID 1, /etc/{passwd,shadow} may be unavailable.
-Gracefully handle that.
-
-diff --git a/modules/dmd/support.scm b/modules/dmd/support.scm
-index 9b592c5..602e409 100644
---- a/modules/dmd/support.scm
-+++ b/modules/dmd/support.scm
-@@ -151,7 +151,10 @@ There is NO WARRANTY, to the extent permitted by law.")))
- 
- 
- ;; Home directory of the user.
--(define user-homedir (passwd:dir (getpwuid (getuid))))
-+(define user-homedir
-+  (or (false-if-exception (passwd:dir (getpwuid (getuid))))
-+      (getenv "HOME")
-+      "/"))
- 
- ;; Logfile.
- (define default-logfile
diff --git a/gnu/packages/patches/dmd-tests-longer-sleeps.patch b/gnu/packages/patches/dmd-tests-longer-sleeps.patch
deleted file mode 100644
index 708000f351..0000000000
--- a/gnu/packages/patches/dmd-tests-longer-sleeps.patch
+++ /dev/null
@@ -1,52 +0,0 @@
-Increase sleep times in tests, for slower machines.
-
-Patch by Mark H Weaver <mhw@netris.org>.
-
---- dmd/tests/basic.sh	2013-11-30 17:22:00.000000000 -0500
-+++ dmd/tests/basic.sh	2014-02-16 02:18:34.036376953 -0500
-@@ -46,7 +46,7 @@
- dmd -I -s "$socket" -c "$conf" -l "$log" &
- dmd_pid=$!
- 
--sleep 1				# XXX: wait till it's up
-+sleep 3				# XXX: wait till it's up
- kill -0 $dmd_pid
- test -S "$socket"
- $deco status dmd | grep -E '(Start.*dmd|Stop.*test)'
---- dmd/tests/respawn.sh	2013-12-01 16:50:37.000000000 -0500
-+++ dmd/tests/respawn.sh	2014-02-16 02:19:16.958251953 -0500
-@@ -39,7 +39,7 @@
-     i=0
-     while ! test -f "$1" && test $i -lt 20
-     do
--	sleep 0.3
-+	sleep 1
- 	i=`expr $i + 1`
-     done
-     test -f "$1"
-@@ -65,14 +65,14 @@
-    #:provides '(test1)
-    #:start (make-forkexec-constructor
- 	    "$SHELL" "-c"
--	    "echo \$\$ > $service1_pid ; while true ; do sleep 1 ; done")
-+	    "echo \$\$ > $service1_pid ; while true ; do sleep 3 ; done")
-    #:stop  (make-kill-destructor)
-    #:respawn? #t)
-  (make <service>
-    #:provides '(test2)
-    #:start (make-forkexec-constructor
- 	    "$SHELL" "-c"
--	    "echo \$\$ > $service2_pid ; while true ; do sleep 1 ; done")
-+	    "echo \$\$ > $service2_pid ; while true ; do sleep 3 ; done")
-    #:stop  (make-kill-destructor)
-    #:respawn? #t))
- (start 'test1)
-@@ -82,7 +82,7 @@
- dmd -I -s "$socket" -c "$conf" -l "$log" &
- dmd_pid=$!
- 
--sleep 1				# XXX: wait till it's up
-+sleep 3				# XXX: wait till it's up
- kill -0 $dmd_pid
- test -S "$socket"
- $deco status test1 | grep started
-- 
cgit v1.2.3