From 61f1c44bcd67853cdd813a8eb42caaa03746dbdb Mon Sep 17 00:00:00 2001
From: Jason Vas Dias <unknown>
Date: Tue, 25 Oct 2005 08:27:28 -0700
Subject: [PATCH] [perl #37535] [PATCH] ioctl IOCPARM_LEN(x) should be
 _IOC_SIZE(x) on Linux, not 256 From: Jason Vas Dias (via RT)
 <perlbug-followup@perl.org> Message-ID:
 <rt-3.0.11-37535-123290.14.118037538994@perl.org>

p4raw-id: //depot/perl@25852
---
 perl.h | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/perl.h b/perl.h
index 97e8058..001bd69 100644
--- a/perl.h
+++ b/perl.h
@@ -2959,11 +2959,16 @@ typedef pthread_key_t	perl_key;
 
 #ifndef IOCPARM_LEN
 #   ifdef IOCPARM_MASK
-	/* on BSDish systes we're safe */
+	/* on BSDish systems we're safe */
 #	define IOCPARM_LEN(x)  (((x) >> 16) & IOCPARM_MASK)
 #   else
+#	if defined(_IOC_SIZE) && defined(__GLIBC__)
+	/* on Linux systems we're safe */
+#	    define IOCPARM_LEN(x) _IOC_SIZE(x)
+#	else
 	/* otherwise guess at what's safe */
-#	define IOCPARM_LEN(x)	256
+#	    define IOCPARM_LEN(x)	256
+#	endif
 #   endif
 #endif
 
-- 
2.7.4