Re: t/op/tie.t #19 TODO ENOTWORKING

[perl5.git] / epoc / epoc.c

diff --git a/epoc/epoc.c b/epoc/epoc.c
index 61c8d28..d580552 100644 (file)
--- a/epoc/epoc.c
+++ b/epoc/epoc.c
@@ -11,7 +11,6 @@
 #include <stdio.h>
 #include <sys/unistd.h>
 #include <process.h>
-#include <emx.h>
 
 
 #include "EXTERN.h"
@@ -124,8 +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);
-}