From: Jeff Trawick <trawick@apache.org>
Date: Thu, 29 Aug 2002 23:04:36 +0000 (+0000)
Subject: find the first perl, not the last
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3e7ee79aca4bb3cbcebbc06e3d607fdd13aa14d3;p=thirdparty%2Fapache%2Fhttpd.git

find the first perl, not the last

we break-ed when we found the first perl, but it didn't
get us out of the outer for


git-svn-id: https://svn.apache.org/repos/asf/httpd/httpd/trunk@96580 13f79535-47bb-0310-9956-ffa450edef68
---

diff --git a/build/install-bindist.sh.in b/build/install-bindist.sh.in
index 314be2d4d52..58d3af68eae 100755
--- a/build/install-bindist.sh.in
+++ b/build/install-bindist.sh.in
@@ -50,16 +50,21 @@ lcopy()
 PERL=no-perl5-on-this-system
 perls='perl5 perl'
 path=`echo $PATH | sed -e 's/:/ /g'`
+found_perl=0
  
 for dir in ${path} ;  do
   for pperl in ${perls} ; do
     if test -f "${dir}/${pperl}" ; then
       if `${dir}/${pperl} -v >/dev/null 2>&1` ; then
         PERL="${dir}/${pperl}"
+        found_perl=1
         break
       fi
     fi
   done
+  if test $found_perl = 1 ; then
+    break
+  fi
 done
  
 if [ .$1 = . ]