1*256a93a4Safresh1diff --git a/dist/IO/poll.h b/dist/IO/poll.h 2*256a93a4Safresh1--- a/dist/IO/poll.h 3*256a93a4Safresh1+++ b/dist/IO/poll.h 4*256a93a4Safresh1@@ -22,10 +22,12 @@ 5*256a93a4Safresh1 6*256a93a4Safresh1 #define EMULATE_POLL_WITH_SELECT 7*256a93a4Safresh1 8*256a93a4Safresh1+#ifdef __VMS 9*256a93a4Safresh1 #ifdef poll 10*256a93a4Safresh1 # undef poll 11*256a93a4Safresh1 #endif 12*256a93a4Safresh1 #define poll Perl_my_poll 13*256a93a4Safresh1+#endif 14*256a93a4Safresh1 15*256a93a4Safresh1 typedef struct pollfd { 16*256a93a4Safresh1 int fd; 17*256a93a4Safresh1diff --git a/ext/Errno/Errno_pm.PL b/ext/Errno/Errno_pm.PL 18*256a93a4Safresh1--- a/ext/Errno/Errno_pm.PL 19*256a93a4Safresh1+++ b/ext/Errno/Errno_pm.PL 20*256a93a4Safresh1@@ -125,6 +125,8 @@ sub get_files { 21*256a93a4Safresh1 # VMS keeps its include files in system libraries 22*256a93a4Safresh1 if ($^O eq 'VMS') { 23*256a93a4Safresh1 $file{'Sys$Library:DECC$RTLDEF.TLB'} = 1; 24*256a93a4Safresh1+ } elsif ($^O eq 'plan9') { 25*256a93a4Safresh1+ $file{'/sys/include/ape/errno.h'} = 1; 26*256a93a4Safresh1 } elsif ($^O eq 'os390') { 27*256a93a4Safresh1 # OS/390 C compiler doesn't generate #file or #line directives 28*256a93a4Safresh1 $file{'/usr/include/errno.h'} = 1; 29*256a93a4Safresh1diff --git a/sv.c b/sv.c 30*256a93a4Safresh1--- a/sv.c 31*256a93a4Safresh1+++ b/sv.c 32*256a93a4Safresh1@@ -876,10 +876,10 @@ 33*256a93a4Safresh1 U8 body_size; /* Size to allocate */ 34*256a93a4Safresh1 U8 copy; /* Size of structure to copy (may be shorter) */ 35*256a93a4Safresh1 U8 offset; /* Size of unalloced ghost fields to first alloced field*/ 36*256a93a4Safresh1- PERL_BITFIELD8 type : 4; /* We have space for a sanity check. */ 37*256a93a4Safresh1- PERL_BITFIELD8 cant_upgrade : 1;/* Cannot upgrade this type */ 38*256a93a4Safresh1- PERL_BITFIELD8 zero_nv : 1; /* zero the NV when upgrading from this */ 39*256a93a4Safresh1- PERL_BITFIELD8 arena : 1; /* Allocated from an arena */ 40*256a93a4Safresh1+ PERL_BITFIELD8 type; /* We have space for a sanity check. */ 41*256a93a4Safresh1+ PERL_BITFIELD8 cant_upgrade;/* Cannot upgrade this type */ 42*256a93a4Safresh1+ PERL_BITFIELD8 zero_nv; /* zero the NV when upgrading from this */ 43*256a93a4Safresh1+ PERL_BITFIELD8 arena; /* Allocated from an arena */ 44*256a93a4Safresh1 U32 arena_size; /* Size of arena to allocate */ 45*256a93a4Safresh1 }; 46*256a93a4Safresh1 47