summary refs log tree commit diff
path: root/distro/packages
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-01-05 16:02:32 +0100
committerLudovic Courtès <ludo@gnu.org>2013-01-05 16:02:32 +0100
commit7584f822bf076f4fc8aef9c1f4d48c179fe15fc3 (patch)
tree905afe27094a71e6730fc2428f213f28b4a956fd /distro/packages
parent312543dcfc2b19063f172bd10bb437d6bfe62cff (diff)
downloadguix-7584f822bf076f4fc8aef9c1f4d48c179fe15fc3.tar.gz
utils: Add `which'.
* guix/build/utils.scm (which): New procedure.

* distro/packages/lsh.scm (lsh): Use `which' instead of `search-path'.
* distro/packages/perl.scm (perl): Likewise.
* distro/packages/attr.scm (attr): Likewise.
Diffstat (limited to 'distro/packages')
-rw-r--r--distro/packages/attr.scm9
-rw-r--r--distro/packages/lsh.scm5
-rw-r--r--distro/packages/perl.scm10
3 files changed, 9 insertions, 15 deletions
diff --git a/distro/packages/attr.scm b/distro/packages/attr.scm
index ad2cd3987a..c61f4d7031 100644
--- a/distro/packages/attr.scm
+++ b/distro/packages/attr.scm
@@ -56,12 +56,9 @@
           'check
           (lambda _
             ;; Use the right shell.
-            (let ((bash (search-path (search-path-as-string->list
-                                      (getenv "PATH"))
-                                     "bash")))
-              (substitute* "test/run"
-                (("/bin/sh")
-                 (string-append bash "/bin/bash"))))
+            (substitute* "test/run"
+              (("/bin/sh")
+               (which "bash")))
 
             (system* "make" "tests" "-C" "test")
 
diff --git a/distro/packages/lsh.scm b/distro/packages/lsh.scm
index aa74c77b60..8f44967726 100644
--- a/distro/packages/lsh.scm
+++ b/distro/packages/lsh.scm
@@ -1,5 +1,5 @@
 ;;; Guix --- Nix package management from Guile.         -*- coding: utf-8 -*-
-;;; Copyright (C) 2012 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright (C) 2012, 2013 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of Guix.
 ;;;
@@ -114,8 +114,7 @@
           (substitute* "src/testsuite/login-auth-test"
             (("/bin/cat")
              ;; Use the right path to `cat'.
-             (search-path (search-path-as-string->list (getenv "PATH"))
-                          "cat"))))
+             (which "cat"))))
         %standard-phases)))
     (home-page "http://www.lysator.liu.se/~nisse/lsh/")
     (synopsis
diff --git a/distro/packages/perl.scm b/distro/packages/perl.scm
index 26b25b154d..c4bfb6b260 100644
--- a/distro/packages/perl.scm
+++ b/distro/packages/perl.scm
@@ -1,5 +1,5 @@
 ;;; Guix --- Nix package management from Guile.         -*- coding: utf-8 -*-
-;;; Copyright (C) 2012 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright (C) 2012, 2013 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of Guix.
 ;;;
@@ -46,13 +46,11 @@
           'configure
           (lambda* (#:key inputs outputs #:allow-other-keys)
             (let ((out  (assoc-ref outputs "out"))
-                  (libc (assoc-ref inputs "libc"))
-                  (pwd  (search-path (search-path-as-string->list
-                                      (getenv "PATH"))
-                                     "pwd")))
+                  (libc (assoc-ref inputs "libc")))
               ;; Use the right path for `pwd'.
               (substitute* "dist/Cwd/Cwd.pm"
-                (("/bin/pwd") pwd))
+                (("/bin/pwd")
+                 (which "pwd")))
 
               (zero?
                (system* "./Configure"