diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-26 19:57:27 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-26 19:57:27 +0000 |
| commit | 2585f9a36cbb1a792eb49405e800bf4d68a3291b (patch) | |
| tree | 19ac9ce19b62396ee8819b020f61b472848efc79 /epoc | |
| parent | 8f675a64451b3c11c234adeda6be313fb8d03f6c (diff) | |
| download | perl-2585f9a36cbb1a792eb49405e800bf4d68a3291b.tar.gz | |
EPOC update from Olaf Flebbe.
p4raw-id: //depot/perl@15524
Diffstat (limited to 'epoc')
| -rw-r--r-- | epoc/epoc.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/epoc/epoc.c b/epoc/epoc.c index 88dca1e7cf..61c8d28cf5 100644 --- a/epoc/epoc.c +++ b/epoc/epoc.c @@ -11,6 +11,7 @@ #include <stdio.h> #include <sys/unistd.h> #include <process.h> +#include <emx.h> #include "EXTERN.h" @@ -56,7 +57,7 @@ do_aspawn ( void *vreally, void **vmark, void **vsp) { cmd = strdup((const char*)(really ? SvPV_nolen(really) : argv[0])); - spawnvp( P_WAIT, cmd, argv); + rc = spawnvp( P_WAIT, cmd, argv); free( argv); free( cmd); @@ -125,5 +126,6 @@ Perl_init_os_extras(void) void Perl_my_setenv(pTHX_ char *nam,char *val) { + setenv( nam, val, 1); } |