From 4a5365b82747fe5c0cd53e165b6d61c6dddc52ad Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 16 Nov 2000 23:19:40 +0000
Subject: [PATCH] Avoid an infinite loop in VMS when utils scripts are run with
 no arguments, from Charles Lane.

p4raw-id: //depot/perl@7715
---
 configure.com | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
2.7.4