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 88dca1e..03b0134 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);
 
@@ -85,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' 
      */
@@ -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);
-}