aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnu-system.am2
-rw-r--r--gnu/packages/admin.scm6
-rw-r--r--gnu/packages/patches/dmd-getpw.patch19
-rw-r--r--gnu/packages/patches/dmd-tests-longer-sleeps.patch52
4 files changed, 2 insertions, 77 deletions
diff --git a/gnu-system.am b/gnu-system.am
index ad6dff3f60..51e2573ce3 100644
--- a/gnu-system.am
+++ b/gnu-system.am
@@ -288,8 +288,6 @@ dist_patch_DATA = \
gnu/packages/patches/cursynth-wave-rand.patch \
gnu/packages/patches/dbus-localstatedir.patch \
gnu/packages/patches/diffutils-gets-undeclared.patch \
- gnu/packages/patches/dmd-getpw.patch \
- gnu/packages/patches/dmd-tests-longer-sleeps.patch \
gnu/packages/patches/doxygen-test.patch \
gnu/packages/patches/doxygen-tmake.patch \
gnu/packages/patches/emacs-configure-sh.patch \
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index dc6a83b9e5..8b7a2c0303 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -53,16 +53,14 @@
(define-public dmd
(package
(name "dmd")
- (version "0.1")
+ (version "0.2")
(source (origin
(method url-fetch)
(uri (string-append "ftp://alpha.gnu.org/gnu/dmd/dmd-"
version ".tar.gz"))
(sha256
(base32
- "07mddw0p62fcphwjzgb6rfa0pjz5sy6jzbha0sm2vc3rqf459jxg"))
- (patches (list (search-patch "dmd-getpw.patch")
- (search-patch "dmd-tests-longer-sleeps.patch")))))
+ "10fl4k96f17gqx2fv8iw9c61ld26gsk4bbrlfqckdmiimz1k175z"))))
(build-system gnu-build-system)
(arguments
'(#:configure-flags '("--localstatedir=/var")))
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