ST(0)=sv_newmortal ();
if (getcwd (tmp,PATH_MAX+1)!=NULL)
sv_setpv ((SV*)ST(0),tmp);
-#ifndef INCOMPLETE_TAINTS
SvTAINTED_on(ST(0));
-#endif
}
XSRETURN (1);
}
RETVAL = getcwd(p, MAXPATHLEN);
ST(0) = sv_newmortal();
sv_setpv((SV*)ST(0), RETVAL);
-#ifndef INCOMPLETE_TAINTS
SvTAINTED_on(ST(0));
-#endif
}
XSRETURN(1);
}