while (++mark <= sp)
{
if (*mark)
- *a++ = SvPVx(*mark, na);
+ *a++ = SvPVx(*mark, PL_na);
else
*a++ = "";
}
/*-----------------------------------------------------*/
if (*PL_Argv[0] != '/')
TAINT_ENV();
- if (really && *(tmps = SvPV(really, na)))
+ if (really && *(tmps = SvPV(really, PL_na)))
pid = spawnp(tmps, nFd, fdMap, &inherit,
(const char **) PL_Argv,
(const char **) environ);
}
-/*===================== End of my_pclose ===================*/
-
-/************************************************************/
-/* */
-/* Name - getTHR. */
-/* */
-/* Function - Use pclose to terminate a piped command */
-/* file stream. */
-/* */
-/* On Exit - Thread specific data returned. */
-/* */
-/************************************************************/
-
-struct perl_thread *
-getTHR()
-{
- int status;
- struct perl_thread *pThread;
-
- status = pthread_getspecific(PL_thr_key, (void **) &pThread);
- if (status != 0)
- pThread = NULL;
- return (pThread);
-}
-
-/*===================== End of getTHR ======================*/
-
/************************************************************/
/* */
/* Name - dlopen. */