int&
CPerlObj::ErrorNo(void)
{
- return error_no;
+ return errno;
}
void
CPerlObj::Init(void)
{
-#ifdef WIN32
- New(2904, environ, 1, char*);
- *environ = NULL;
-#endif
}
-#ifdef WIN32
+#ifdef WIN32 /* XXX why are these needed? */
bool
do_exec(char *cmd)
{