#define PERL_NO_GET_CONTEXT
		#include "EXTERN.h"
		#include "perl.h"
		#include "XSUB.h"
         262    
		#ifdef VMS
		#  include <file.h>
		#else
         262    #if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32)
         262    #define _NO_OLDNAMES
         262    #endif 
		#  include <fcntl.h>
		#if defined(__GNUC__) && defined(__cplusplus) && defined(WIN32)
		#undef _NO_OLDNAMES
		#endif 
		#endif
		
		#ifdef I_UNISTD
		#include <unistd.h>
         262    #endif
		
		/* This comment is a kludge to get metaconfig to see the symbols
         262        VAL_O_NONBLOCK
		    VAL_EAGAIN
      ######        RD_NODATA
      ######        EOF_NONBLOCK
      ######       and include the appropriate metaconfig unit
		   so that Configure will test how to turn on non-blocking I/O
          18       for a file descriptor.  See config.h for how to use these
		   in your extension. 
          18       
          18       While I'm at it, I'll have metaconfig look for HAS_POLL too.
		   --AD  October 16, 1995
         244    */
         244    
         244    #include "const-c.inc"
         244    
		MODULE = Fcntl		PACKAGE = Fcntl
		
		INCLUDE: const-xs.inc
		INCLUDE: const-xs.inc