1			#define PERL_NO_GET_CONTEXT
     2			#include "EXTERN.h"
     3			#include "perl.h"
     4			#include "XSUB.h"
     5	         262    
     6			#ifdef VMS
     7			#  include <file.h>
     8			#else
     9	         262    #if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32)
    10	         262    #define _NO_OLDNAMES
    11	         262    #endif 
    12			#  include <fcntl.h>
    13			#if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32)
    14			#undef _NO_OLDNAMES
    15			#endif 
    16			#endif
    17			
    18			#ifdef I_UNISTD
    19			#include <unistd.h>
    20	         262    #endif
    21			
    22			/* This comment is a kludge to get metaconfig to see the symbols
    23	         262        VAL_O_NONBLOCK
    24			    VAL_EAGAIN
    25	      ######        RD_NODATA
    26	      ######        EOF_NONBLOCK
    27	      ######       and include the appropriate metaconfig unit
    28			   so that Configure will test how to turn on non-blocking I/O
    29	          18       for a file descriptor.  See config.h for how to use these
    30			   in your extension. 
    31	          18       
    32	          18       While I'm at it, I'll have metaconfig look for HAS_POLL too.
    33			   --AD  October 16, 1995
    34	         244    */
    35	         244    
    36	         244    #include "const-c.inc"
    37	         244    
    38			MODULE = Fcntl		PACKAGE = Fcntl
    39			
    40			INCLUDE: const-xs.inc
    41			INCLUDE: const-xs.inc