The attached patch mimics in configure.com what Configure does to enable
or disable this new feature,
Against my previous we need
--- configure.com;-1 Fri Mar 26 11:37:02 2004
+++ configure.com Fri Mar 26 22:34:24 2004
@@ -2513,7 +2513,7 @@
$ THEN bool_dflt = "n"
$ ELSE bool_dflt = "y"
$ ENDIF
-$ IF F$TYPE(usemymalloc) .nes. ""
+$ IF F$TYPE(usemallocwrap) .nes. ""
$ then
$ if usemallocwrap .or. usemallocwrap .eqs. "define" then bool_dflt = "y"
$ endif
[END OF PATCH]
but the attachment is a fresh and corrected version if the previous has not been applied yet.
--- configure.com;-0 Mon Jan 26 15:33:04 2004 +++ configure.com Fri Mar 26 22:34:24 2004 @@ -880,7 +880,7 @@ $ config_symbols1 ="|installprivlib|installscript|installsitearch|installsitelib|most|oldarchlib|oldarchlibexp|osname|pager|perl_symbol|perl_verb|" $ config_symbols2 ="|prefix|privlib|privlibexp|scriptdir|sitearch|sitearchexp|sitebin|sitelib|sitelib_stem|sitelibexp|try_cxx|use64bitall|use64bitint|" $ config_symbols3 ="|usecasesensitive|usedefaulttypes|usedevel|useieee|useithreads|usemultiplicity|usemymalloc|usedebugging_perl|useperlio|usesecurelog|" -$ config_symbols4 ="|usethreads|usevmsdebug|usefaststdio|" +$ config_symbols4 ="|usethreads|usevmsdebug|usefaststdio|usemallocwrap|" $! $ open/read CONFIG 'config_sh' $ rd_conf_loop: @@ -2507,6 +2507,23 @@ $ usedefaulttypes = "undef" $ 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 +$ IF F$TYPE(usemallocwrap) .nes. "" +$ then +$ if usemallocwrap .or. usemallocwrap .eqs. "define" then bool_dflt = "y" +$ endif +$ rp = "Do you wish to wrap malloc calls to protect against potential overflows? [''bool_dflt'] " +$ GOSUB myread +$ IF ans +$ THEN usemallocwrap = "define" +$ ELSE usemallocwrap = "undef" +$ ENDIF +$! $! Ask if they want to use perl's memory allocator $ echo "" $ echo "Perl has a built-in memory allocator that is tuned for normal" @@ -5766,6 +5783,7 @@ $ WC "mab='" + "'" $ WC "make='" + make + "'" $ WC "malloctype='void *'" +$ WC "usemallocwrap='" + usemallocwrap + "'" $ WC "man1ext='rno'" $ WC "man3ext='rno'" $ WC "mmaptype='void *'"
