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)
{
}
#endif /* WIN32 */
-#ifndef DEBUGGING
-/* create a matching set of virtual entries for the non debugging version */
-void CPerlObj::deb_place_holder _((const char* pat,...)) {};
-void CPerlObj::deb_growlevel_place_holder _((void)) {};
-void CPerlObj::debprofdump_place_holder _((void)) {};
-I32 CPerlObj::debop_place_holder _((OP* o)) { return 0; };
-I32 CPerlObj::debstack_place_holder _((void)) { return 0; };
-I32 CPerlObj::debstackptrs_place_holder _((void)) { return 0; };
-#endif
-
#endif /* PERL_OBJECT */