X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=globals.c;h=1daf4f1833e04e76de49e25fd74d14ed40aff602;hb=2d259d9294e79c03b1a69d3eaac3d6e5647468d7;hp=e3ca27e76a754c94875a8f6c1cea59ff7dcaa885;hpb=3dfd1da1ac911ed5d5b4e3956b485ad9af14a10f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/globals.c b/globals.c
index e3ca27e..1daf4f1 100644
--- a/globals.c
+++ b/globals.c
@@ -1438,19 +1438,15 @@ CPerlObj::operator new(size_t nSize, IPerlMem *pvtbl)
 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)
 {