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);
}
/*
- * If ptr != Nullch
+ * If ptr != NULL
* then it worked, set PV valid,
* else return 'undef'
*/
newXS("EPOC::getcwd", epoc_getcwd, file);
}
-void
-Perl_my_setenv(pTHX_ char *nam,char *val) {
- setenv( nam, val, 1);
-}