$!
$! 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
$ WC "PERL_REVISION='" + revision + "'"
$ WC "PERL_VERSION='" + patchlevel + "'"
$ WC "PERL_SUBVERSION='" + subversion + "'"
+$ WC "PERL_API_REVISION='" + api_revision + "'"
$ WC "PERL_API_VERSION='" + api_version + "'"
$ WC "PERL_API_SUBVERSION='" + api_subversion + "'"
$ WC "_a='" + lib_ext + "'"