reason its existence has never been acknowledged in Perl. The attached
patch touches only configure.com and vms/vmsish.h and thus has no impact on other platforms.
--- configure.com;-0 Thu Jul 10 01:10:32 2003 +++ configure.com Fri Aug 1 17:29:22 2003 @@ -3668,6 +3668,13 @@ $ GOSUB inhdr $ i_sysfile = tmp $! +$! +$! Check for sys/ioctl.h +$! +$ tmp = "sys/ioctl.h" +$ GOSUB inhdr +$ i_sysioctl = tmp +$! $! Check for sys/utsname.h $! $ tmp = "sys/utsname.h" @@ -5642,7 +5649,7 @@ $ WC "i_sysaccess='" + i_sysaccess + "'" $ WC "i_sysdir='undef'" $ WC "i_sysfile='" + i_sysfile + "'" -$ WC "i_sysioctl='undef'" +$ WC "i_sysioctl='" + i_sysioctl + "'" $ WC "i_syslog='" + i_syslog + "'" $ WC "i_sysmman='undef'" $ WC "i_sysmode='" + i_sysmode + "'" --- vms/vmsish.h;-0 Fri Jul 4 10:12:08 2003 +++ vms/vmsish.h Fri Aug 1 17:55:32 2003 @@ -355,7 +355,11 @@ * 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
