This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.0 alpha 5
[perl5.git] / perl.h
diff --git a/perl.h b/perl.h
index 747f8a1..1b32d4d 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -272,6 +272,12 @@ char Error[1];
 #endif
 
 #include <errno.h>
+#ifdef HAS_SOCKET
+#   ifndef ENOTSOCK
+#     include <net/errno.h>
+#   endif
+#endif
+
 #ifndef MSDOS
 #   ifndef errno
        extern int errno;     /* ANSI allows errno to be an lvalue expr */
@@ -520,6 +526,7 @@ typedef struct context CONTEXT;
 typedef struct block BLOCK;
 
 typedef struct magic MAGIC;
+typedef struct xrv XRV;
 typedef struct xpv XPV;
 typedef struct xpviv XPVIV;
 typedef struct xpvnv XPVNV;
@@ -631,6 +638,13 @@ U32 cast_ulong P((double));
 #define U_L(what) (cast_ulong(what))
 #endif
 
+#ifdef CASTI32
+#define I_32(what) ((I32)(what))
+#else
+I32 cast_i32 P((double));
+#define I_32(what) (cast_i32(what))
+#endif
+
 struct Outrec {
     I32                o_lines;
     char       *o_str;