Mark new_warnings_bitfield as XE, and add it to __DATA__ in makedef.pl

[p5sagit/p5-mst-13.2.git] / doio.c

diff --git a/doio.c b/doio.c
index 0e9987d..3d29b59 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -2255,7 +2255,7 @@ Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp)
        SETERRNO(EFAULT,SS_ACCVIO);             /* can't do as caller requested */
        return -1;
     }
-    shm = (char *)shmat(id, (char*)NULL, (optype == OP_SHMREAD) ? SHM_RDONLY : 0);
+    shm = (char *)shmat(id, NULL, (optype == OP_SHMREAD) ? SHM_RDONLY : 0);
     if (shm == (char *)-1)     /* I hate System V IPC, I really do */
        return -1;
     if (optype == OP_SHMREAD) {
@@ -2323,7 +2323,7 @@ Perl_vms_start_glob
    (pTHX_ SV *tmpglob,
     IO *io);
 
-    fp = Perl_vms_start_glob(tmpglob, io);
+    fp = Perl_vms_start_glob(aTHX_ tmpglob, io);
 
 #else /* !VMS */
 #ifdef MACOS_TRADITIONAL