From b3342b545a0147e2b501a94179cea6257fbe5213 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès 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 . - ---- 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 - #: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