Re: [PATCH 1/3] configure: Add test for Perl

From: Gerrit Pape <pape@smarden.org>
Date: Jul 6, 2006, 14:17 UTC
Message-ID: <20060706141725.28115.qmail@775c2aaf180a85.315fe32.mid.smarden.org>
In-Reply-To: <E1FyUNT-0007Ko-JR@moooo.ath.cx>

On Thu, Jul 06, 2006 at 03:58:47PM +0200, Matthias Lederhofer wrote:

> This will not work with spaces in $PATH. I'd do something like this if
> cut is portable (I have only freebsd and linux to test):

This should work with shell/builtins only, no sed/cut:

 path=${PATH}:
 while test -n "$path"; do
   p=${path%%:*}/$1
   test ! -x "$p" || { echo "$p"; return 0; }
   path=${path#*:}
 done
 test ! -x "$1" || { echo "$1" && return 0; }
 return 1

Regards, Gerrit.