From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 1 Aug 2003 23:34:31 +0000 (-0500)
Subject: ioctl for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=670137c257a6256f68b1db438a3e2732ae609263;p=p5sagit%2Fp5-mst-13.2.git

ioctl for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3F2B3F57.4050609@mac.com>

p4raw-id: //depot/perl@20439
---

diff --git a/configure.com b/configure.com
index 156daa6..df07464 100644
--- a/configure.com
+++ b/configure.com
@@ -3668,6 +3668,13 @@ $ tmp = "sys/file.h"
 $ 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_sunmath='undef'"
 $ 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 + "'"
diff --git a/vms/vmsish.h b/vms/vmsish.h
index 076a696..af30293 100644
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -355,7 +355,11 @@ struct interp_intern {
  *	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