This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ioctl for VMS
authorCraig A. Berry <craigberry@mac.com>
Fri, 1 Aug 2003 23:34:31 +0000 (18:34 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 2 Aug 2003 05:06:43 +0000 (05:06 +0000)
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3F2B3F57.4050609@mac.com>

p4raw-id: //depot/perl@20439

configure.com
vms/vmsish.h

index 156daa6..df07464 100644 (file)
@@ -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 + "'"
index 076a696..af30293 100644 (file)
@@ -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