disallow eval { goto &foo }

[p5sagit/p5-mst-13.2.git] / epoc / epoc.c

diff --git a/epoc/epoc.c b/epoc/epoc.c
index 88dca1e..d580552 100644 (file)
--- a/epoc/epoc.c
+++ b/epoc/epoc.c
@@ -56,7 +56,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);
 
@@ -123,7 +123,3 @@ Perl_init_os_extras(void)
   newXS("EPOC::getcwd", epoc_getcwd, file);
 }
 
-void
-Perl_my_setenv(pTHX_ char *nam,char *val) {
-  setenv( nam, val, 1);
-}