From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 10 Aug 2006 08:35:53 +0000 (+0300)
Subject: doio.c: vararg NULLs must be cast right
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c0dd7caddd4c6aa0c561002ae25414a8910234e;p=p5sagit%2Fp5-mst-13.2.git

doio.c: vararg NULLs must be cast right
Message-Id: <200608100535.k7A5Zr2Z156515@kosh.hut.fi>

p4raw-id: //depot/perl@28688
---

diff --git a/doio.c b/doio.c
index 399cadf..bc30130 100644
--- a/doio.c
+++ b/doio.c
@@ -1481,7 +1481,7 @@ Perl_do_exec3(pTHX_ const char *incmd, int fd, int do_report)
 	      if (s[-1] == '\'') {
 		  *--s = '\0';
 		  PERL_FPU_PRE_EXEC
-		  PerlProc_execl(PL_cshname, "csh", flags, ncmd, NULL);
+		  PerlProc_execl(PL_cshname, "csh", flags, ncmd, (char*)NULL);
 		  PERL_FPU_POST_EXEC
 		  *s = '\'';
  		  S_exec_failed(aTHX_ PL_cshname, fd, do_report);
@@ -1530,7 +1530,7 @@ Perl_do_exec3(pTHX_ const char *incmd, int fd, int do_report)
 	    }
 	  doshell:
 	    PERL_FPU_PRE_EXEC
-	    PerlProc_execl(PL_sh_path, "sh", "-c", cmd, NULL);
+	    PerlProc_execl(PL_sh_path, "sh", "-c", cmd, (char *)NULL);
 	    PERL_FPU_POST_EXEC
  	    S_exec_failed(aTHX_ PL_sh_path, fd, do_report);
 	    Safefree(cmd);