diff options
| -rw-r--r-- | usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Exacct.xs | 2 | ||||
| -rw-r--r-- | usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Exacct.xs b/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Exacct.xs index 5861d39bfd..459138cd10 100644 --- a/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Exacct.xs +++ b/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Exacct.xs @@ -531,7 +531,7 @@ putacct(idtype, id, value) SV *value; PREINIT: HV *stash; - unsigned int bufsz; + STRLEN bufsz; int flags, ret; char *buf; CODE: diff --git a/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs b/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs index fdebfb5c90..403c95f50b 100644 --- a/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs +++ b/usr/src/cmd/perl/contrib/Sun/Solaris/Kstat/Kstat.xs @@ -950,7 +950,7 @@ set_valid(HV *self, void *arg) 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); } |