From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 5 Apr 2004 11:02:12 +0000 (-0500)
Subject: Re: perldelta584
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dc9da78b70f004446f5a9327eea553687ad8c180;p=p5sagit%2Fp5-mst-13.2.git

Re: perldelta584
Message-ID: <12587569.1081180932766.JavaMail.craigberry@mac.com>

(makes malloc wrap the default on VMS)

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

diff --git a/configure.com b/configure.com
index 5263931..3f94d49 100644
--- a/configure.com
+++ b/configure.com
@@ -2509,13 +2509,10 @@ $ if (d_alwdeftype) then usedefaulttypes = "define"
 $!
 $! determine whether to use malloc wrapping
 $ echo ""
-$ IF .NOT. usedevel .AND. usedevel .NES. "define"
-$ THEN bool_dflt = "n"
-$ ELSE bool_dflt = "y"
-$ ENDIF
+$ bool_dflt = "y"
 $ IF F$TYPE(usemallocwrap) .nes. ""
 $ then
-$   if usemallocwrap .or. usemallocwrap .eqs. "define" then bool_dflt = "y"
+$   if .NOT. usemallocwrap .or. usemallocwrap .eqs. "undef" then bool_dflt = "n"
 $ endif
 $ rp = "Do you wish to wrap malloc calls to protect against potential overflows? [''bool_dflt'] "
 $ GOSUB myread