diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-16 23:19:40 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-16 23:19:40 +0000 |
| commit | 4a5365b82747fe5c0cd53e165b6d61c6dddc52ad (patch) | |
| tree | 97d6c18e1f50a82945cb4cc07ad632e0ae36d680 | |
| parent | 35316ca3836a723c9fc06f19ddf7dd57bb1907e7 (diff) | |
| download | perl-4a5365b82747fe5c0cd53e165b6d61c6dddc52ad.tar.gz | |
Avoid an infinite loop in VMS when utils scripts are run
with no arguments, from Charles Lane.
p4raw-id: //depot/perl@7715
| -rw-r--r-- | configure.com | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/configure.com b/configure.com index d40c25094f..094650312b 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 |