From ef060a86ec01add98aaa6268b36dd5f691dc2bf2 Mon Sep 17 00:00:00 2001
From: Charles Lane <lane@DUPHY4.Physics.Drexel.Edu>
Date: Fri, 20 Oct 2000 04:26:04 -0400
Subject: 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
---
 configure.com | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'configure.com')

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
-- 
cgit v1.2.1