X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doio.c;h=3d29b59f80e96444c5cb8a674afad5be7f0f804b;hb=1242dfaee525d4d0ab20ac8ae62b3f0de03fa88e;hp=328186a2a066adb350c14768f3df214cb6e22539;hpb=dca5a9130eb9e045fd52f88cf3dedee7093e19f7;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doio.c b/doio.c
index 328186a..3d29b59 100644
--- a/doio.c
+++ b/doio.c
@@ -740,7 +740,7 @@ Perl_nextargv(pTHX_ register GV *gv)
 	if (PL_inplace) {
 	    if (!PL_argvout_stack)
 		PL_argvout_stack = newAV();
-	    av_push(PL_argvout_stack, SvREFCNT_inc(PL_defoutgv));
+	    av_push(PL_argvout_stack, SvREFCNT_inc_simple(PL_defoutgv));
 	}
     }
     if (PL_filemode & (S_ISUID|S_ISGID)) {
@@ -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