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);
newXS("EPOC::getcwd", epoc_getcwd, file);
}
-void
-Perl_my_setenv(pTHX_ char *nam,char *val) {
- setenv( nam, val, 1);
-}