# HG changeset patch
# User Theo Schlossnagle <jesus@omniti.com>
# Date 1334787623 0
# Node ID bc588248a48230bd5085e95d8e050272f34f07d9
# Parent  176fbb72a42da40b05a1bb058f1c62293b956ed2
2636 Perl bits do not compile cleanly under 64bit perl
Reviewed by: Richard Lowe <richlowe@richlowe.net>
Reviewed by: Robert Mustacchi <rm@joyent.com>
Approved by: Richard Lowe <richlowe@richlowe.net>

diff -r 176fbb72a42d -r bc588248a482 usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Exacct.xs
--- a/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Exacct.xs	Sat Apr 21 12:51:24 2012 -0500
+++ b/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Exacct.xs	Wed Apr 18 22:20:23 2012 +0000
@@ -531,7 +531,7 @@
 	SV		*value;
 PREINIT:
 	HV		*stash;
-	unsigned int	bufsz;
+	STRLEN		bufsz;
 	int		flags, ret;
 	char		*buf;
 CODE:
diff -r 176fbb72a42d -r bc588248a482 usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs
--- a/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs	Sat Apr 21 12:51:24 2012 -0500
+++ b/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs	Wed Apr 18 22:20:23 2012 +0000
@@ -950,7 +950,7 @@
 
 	mg = mg_find((SV *)self, '~');
 	PERL_ASSERTMSG(mg != 0, "set_valid: lost ~ magic");
-	((KstatInfo_t *)SvPVX(mg->mg_obj))->valid = (int)arg;
+	((KstatInfo_t *)SvPVX(mg->mg_obj))->valid = (int)(intptr_t)arg;
 	return (1);
 }