From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 16 Nov 2000 23:19:40 +0000 (+0000)
Subject: Avoid an infinite loop in VMS when utils scripts are run
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a5365b82747fe5c0cd53e165b6d61c6dddc52ad;p=p5sagit%2Fp5-mst-13.2.git

Avoid an infinite loop in VMS when utils scripts are run
with no arguments, from Charles Lane.

p4raw-id: //depot/perl@7715
---

diff --git a/configure.com b/configure.com
index d40c250..0946503 100644
--- a/configure.com
+++ b/configure.com
@@ -2734,7 +2734,7 @@ $ ENDIF
 $!
 $ usedl="define"
 $ startperl="""$ perl 'f$env(\""procedure\"")' \""'"+"'p1'\"" \""'"+"'p2'\"" \""'"+"'p3'\"" \""'"+"'p4'\"" \""'"+"'p5'\"" \""'"+"'p6'\"" \""'"+"'p7'\"" \""'"+"'p8'\""!\n"
-$ startperl=startperl + "$ exit++ + ++$status!=0 and $exit=$status=undef; while($ARGV[$#ARGV] eq '"+"'){pop @ARGV;}"""
+$ startperl=startperl + "$ exit++ + ++$status!=0 and $exit=$status=undef; while($#ARGV != -1 and $ARGV[$#ARGV] eq '"+"'){pop @ARGV;}"""
 $!
 $ IF ((Use_Threads) .AND. (vms_ver .LES. "6.2"))
 $ THEN