From 4388f261169c7e6f89c979e37485e69889f1481b Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Thu, 15 Jan 2015 16:52:21 +1100
Subject: PerlIO::scalar write() at large file position

Prevents treating a large file position as negative (or even wrapped).
---
 perl.h | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl.h')

diff --git a/perl.h b/perl.h
index ebfca35950..c2c4a5cc6a 100644
--- a/perl.h
+++ b/perl.h
@@ -1226,6 +1226,7 @@ EXTERN_C char *crypt(const char *, const char *);
 #   define SS_IVCHAN  		SS$_IVCHAN
 #   define SS_NORMAL  		SS$_NORMAL
 #   define SS_NOPRIV  		SS$_NOPRIV
+#   define SS_BUFFEROVF		SS$_BUFFEROVF
 #else
 #   define LIB_INVARG 		0
 #   define RMS_DIR    		0
@@ -1240,6 +1241,7 @@ EXTERN_C char *crypt(const char *, const char *);
 #   define SS_IVCHAN  		0
 #   define SS_NORMAL  		0
 #   define SS_NOPRIV  		0
+#   define SS_BUFFEROVF		0
 #endif
 
 #ifdef WIN32
-- 
cgit v1.2.1