This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: perldelta584
authorCraig A. Berry <craigberry@mac.com>
Mon, 5 Apr 2004 11:02:12 +0000 (06:02 -0500)
committerNicholas Clark <nick@ccl4.org>
Mon, 5 Apr 2004 15:55:18 +0000 (15:55 +0000)
Message-ID: <12587569.1081180932766.JavaMail.craigberry@mac.com>

(makes malloc wrap the default on VMS)

p4raw-id: //depot/perl@22656

configure.com

index 5263931..3f94d49 100644 (file)
@@ -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