Sigsave_t ihand,qhand;
int childpid, result, status;
- rsignal_save(SIGINT, SIG_IGN, &ihand);
- rsignal_save(SIGQUIT, SIG_IGN, &qhand);
+ rsignal_save(SIGINT, (Sighandler_t) SIG_IGN, &ihand);
+ rsignal_save(SIGQUIT, (Sighandler_t) SIG_IGN, &qhand);
childpid = spawnvp(_P_NOWAIT,path,argv);
if (childpid < 0) {
status = -1;
while (++mark <= sp)
if (*mark)
- *a++ = SvPVx(*mark, n_a);
+ *a++ = SvPVx((SV *)*mark, n_a);
else
*a++ = "";
*a = Nullch;
return do_spawnvp("sh",command);
}
- New (1303,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;) {
}
/* see also Cwd.pm */
-static
XS(Cygwin_cwd)
{
dXSARGS;
Perl_croak(aTHX_ "Usage: Cwd::cwd()");
if((cwd = getcwd(NULL, -1))) {
ST(0) = sv_2mortal(newSVpv(cwd, 0));
- safesysfree(cwd);
+ free(cwd);
#ifndef INCOMPLETE_TAINTS
SvTAINTED_on(ST(0));
#endif
XSRETURN_UNDEF;
}
-static
XS(XS_Cygwin_pid_to_winpid)
{
dXSARGS;
XSRETURN_UNDEF;
}
-static
XS(XS_Cygwin_winpid_to_pid)
{
dXSARGS;