diff options
| author | Charles Lane <lane@DUPHY4.Physics.Drexel.Edu> | 2000-10-20 04:26:04 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-20 12:37:12 +0000 |
| commit | ef060a86ec01add98aaa6268b36dd5f691dc2bf2 (patch) | |
| tree | a36039f7759cd8cd98c963f44570cb6fecfe8875 /configure.com | |
| parent | 403396f30d585890949c05474748da70e45175f2 (diff) | |
| download | perl-ef060a86ec01add98aaa6268b36dd5f691dc2bf2.tar.gz | |
Perl 5.6.0/5.7.0 enable DProf test for VMS
Message-Id: <001020074851.3751a@DUPHY4.Physics.Drexel.Edu>
p4raw-id: //depot/perl@7377
Diffstat (limited to 'configure.com')
| -rw-r--r-- | configure.com | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/configure.com b/configure.com index be0992afde..f4b607aded 100644 --- a/configure.com +++ b/configure.com @@ -2733,7 +2733,8 @@ $ ELSE d_mymalloc="undef" $ ENDIF $! $ usedl="define" -$ startperl="""$ perl 'f$env(\""procedure\"")' 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' !\n$ exit++ + ++$status != 0 and $exit = $status = undef;""" +$ 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;}""" $! $ IF ((Use_Threads) .AND. (vms_ver .LES. "6.2")) $ THEN |