# HG changeset patch
# User Theo Schlossnagle <jesus@omniti.com>
# Date 1347126700 14400
# Node ID ca8df01882181f373f17f9a81db6dc5259bfe469
# Parent  273d7ae671132234ff7428e94c9d7be402d45dee
3165 Privilege.xs perform unsafe casting of priv_ptype_t to int
Reviewed by: Richard Lowe <richlowe@richlowe.net>
Approved by: Dan McDonald <danmcd@nexenta.com>

diff -r 273d7ae67113 -r ca8df0188218 usr/src/cmd/perl/contrib/Sun/Solaris/Privilege/Privilege.xs
--- a/usr/src/cmd/perl/contrib/Sun/Solaris/Privilege/Privilege.xs	Sat Sep 08 13:50:33 2012 -0400
+++ b/usr/src/cmd/perl/contrib/Sun/Solaris/Privilege/Privilege.xs	Sat Sep 08 13:51:40 2012 -0400
@@ -11,7 +11,7 @@
 #include "perl.h"
 #include "XSUB.h"
 
-#define	IVCONST(s, c)	newCONSTSUB(s, #c, newSViv((int)c));
+#define	IVCONST(s, c)	newCONSTSUB(s, #c, newSViv((int)(intptr_t)c));
 #define	POFF		(sizeof ("PRIV_") - 1)
 
 #define	RETPRIVSET(set)		\