if (childpid < 0) {
status = -1;
if(ckWARN(WARN_EXEC))
- Perl_warner(aTHX_ WARN_EXEC,"Can't spawn \"%s\": %s",
+ Perl_warner(aTHX_ packWARN(WARN_EXEC),"Can't spawn \"%s\": %s",
path,Strerror (errno));
} else {
do {
if((cwd = getcwd(NULL, -1))) {
ST(0) = sv_2mortal(newSVpv(cwd, 0));
safesysfree(cwd);
+#ifndef INCOMPLETE_TAINTS
+ SvTAINTED_on(ST(0));
+#endif
XSRETURN(1);
}
XSRETURN_UNDEF;