01/05: gnu: pcb: Update to 4.0.2.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository guix.

commit 88fb156288a2f3d07a998ec8c19469de00399d56
Author: Ricardo Wurmus <address@hidden>
Date:   Wed Nov 8 15:15:20 2017 +0100

    gnu: pcb: Update to 4.0.2.
    
    * gnu/packages/engineering.scm (pcb): Update to 4.0.2.
    [arguments]: Add build phase "fix-check-for-display".
---
 gnu/packages/engineering.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/engineering.scm b/gnu/packages/engineering.scm
index 911f519..32b2f2c 100644
--- a/gnu/packages/engineering.scm
+++ b/gnu/packages/engineering.scm
@@ -185,14 +185,14 @@ utilities.")
 (define-public pcb
   (package
     (name "pcb")
-    (version "4.0.0")
+    (version "4.0.2")
     (source (origin
               (method url-fetch)
               (uri (string-append "mirror://sourceforge/pcb/pcb/pcb-" version
                                   "/pcb-" version ".tar.gz"))
               (sha256
                (base32
-                "1i6sk8g8h9avms142wl07yv20m1cm4c3fq3v6hybrhdxs2n17plf"))))
+                "1a7rilp75faidny0r4fdwdxkflyrqp6svxv9lbg7h868293962iz"))))
     (build-system gnu-build-system)
     (arguments
      `(#:phases
@@ -202,6 +202,14 @@ utilities.")
              (substitute* "configure"
                (("wish85") "wish8.6"))
              #t))
+         ;; It checks for "xhost", which we don't have.  This shouldn't
+         ;; matter, because the test is supposed to be skipped, but it causes
+         ;; "run_tests.sh" (and thus the "check" phase) to fail.
+         (add-after 'unpack 'fix-check-for-display
+           (lambda _
+             (substitute* "tests/run_tests.sh"
+               (("have_display=no") "have_display=yes"))
+             #t))
          (add-after 'install 'wrap
            (lambda* (#:key inputs outputs #:allow-other-keys)
              ;; FIXME: Mesa tries to dlopen libudev.so.0 and fails.  Pending a