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-Tag: AGB_BEFORE_AAA_CHANGES~119
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=d20d462a7d76bf2ade87b95baf2718203691d1b5;p=apache

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 314be2d4d5..58d3af68ea 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 = . ]