X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=vmesa%2Fvmesa.c;h=59dd19b6c1abf47f56030bef6f070881d8e7cab3;hb=bdd9a1b1ec56a0b6b7d8b1b363138a8fbd3040e3;hp=0e4ad86682d2179a8c2a6d5e99a5cda85040d384;hpb=9d8fd706bc0a9872712899ee2dadb932fa21142a;p=p5sagit%2Fp5-mst-13.2.git diff --git a/vmesa/vmesa.c b/vmesa/vmesa.c index 0e4ad86..59dd19b 100644 --- a/vmesa/vmesa.c +++ b/vmesa/vmesa.c @@ -121,8 +121,7 @@ do_aspawn(SV* really, SV **mark, SV **sp) status = FAIL; if (sp > mark) { - dTHR; - New(401,PL_Argv, sp - mark + 1, char*); + Newx(PL_Argv, sp - mark + 1, char*); a = PL_Argv; while (++mark <= sp) { @@ -137,7 +136,7 @@ do_aspawn(SV* really, SV **mark, SV **sp) fdMap[STDOUT_FILENO] = Perl_stdout_fd; fdMap[STDERR_FILENO] = STDERR_FILENO; nFd = 3; - *a = Nullch; + *a = NULL; /*-----------------------------------------------------*/ /* Will execvp() use PATH? */ /*-----------------------------------------------------*/ @@ -261,7 +260,7 @@ do_spawn(char *cmd, int execf) } } - New(402,PL_Argv, (s - cmd) / 2 + 2, char*); + Newx(PL_Argv, (s - cmd) / 2 + 2, char*); PL_Cmd = savepvn(cmd, s-cmd); a = PL_Argv; for (s = PL_Cmd; *s;) @@ -273,7 +272,7 @@ do_spawn(char *cmd, int execf) if (*s) *s++ = '\0'; } - *a = Nullch; + *a = NULL; fdMap[STDIN_FILENO] = Perl_stdin_fd; fdMap[STDOUT_FILENO] = Perl_stdout_fd; fdMap[STDERR_FILENO] = STDERR_FILENO; @@ -286,7 +285,6 @@ do_spawn(char *cmd, int execf) (const char **) environ); if (pid < 0) { - dTHR; status = FAIL; if (ckWARN(WARN_EXEC)) warner(WARN_EXEC,"Can't exec \"%s\": %s", @@ -423,7 +421,7 @@ my_popen(char *cmd, char *mode) close(pFd[that]); } else - fd = Nullfp; + fd = NULL; } else { @@ -436,7 +434,7 @@ my_popen(char *cmd, char *mode) } } else - fd = Nullfp; + fd = NULL; return (fd); }