With $PERL_UNICODE we still need to find utf8.pm

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

diff --git a/epoc/epoc.c b/epoc/epoc.c
index 61c8d28..03b0134 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"
@@ -86,7 +85,7 @@ XS(epoc_getcwd)   /* more or less stolen from win32.c */
     }
 
     /* 
-     * If ptr != Nullch 
+     * If ptr != NULL 
      *   then it worked, set PV valid, 
      *   else return 'undef' 
      */
@@ -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);
-}