summaryrefslogtreecommitdiff
path: root/vmesa/vmesa.c
diff options
context:
space:
mode:
Diffstat (limited to 'vmesa/vmesa.c')
-rw-r--r--vmesa/vmesa.c31
1 files changed, 2 insertions, 29 deletions
diff --git a/vmesa/vmesa.c b/vmesa/vmesa.c
index 0e9baf302f..6169e70d78 100644
--- a/vmesa/vmesa.c
+++ b/vmesa/vmesa.c
@@ -126,7 +126,7 @@ do_aspawn(SV* really, SV **mark, SV **sp)
while (++mark <= sp)
{
if (*mark)
- *a++ = SvPVx(*mark, na);
+ *a++ = SvPVx(*mark, PL_na);
else
*a++ = "";
}
@@ -142,7 +142,7 @@ do_aspawn(SV* really, SV **mark, SV **sp)
/*-----------------------------------------------------*/
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);
@@ -477,33 +477,6 @@ my_pclose(FILE *fp)
}
-/*===================== 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. */