#endif
#define BIT_BUCKET "_NLA0:"
-#define PERL_SYS_INIT(c,v) vms_image_init((c),(v)); MALLOC_INIT
+#define PERL_SYS_INIT(c,v) MALLOC_CHECK_TAINT2(*c,*v) vms_image_init((c),(v)); MALLOC_INIT
#define PERL_SYS_TERM() OP_REFCNT_TERM; MALLOC_TERM
#define dXSUB_SYS
#define HAS_KILL
* This symbol, if defined, indicates that the ioctl() routine is
* available to set I/O characteristics
*/
+#if defined(__CRTL_VER) && __CRTL_VER >= 70000000
+#define HAS_IOCTL /**/
+#else
#undef HAS_IOCTL /**/
+#endif
/* HAS_UTIME:
* This symbol, if defined, indicates that the routine utime() is