more testsuite smarts (many of them courtesy Ilya)

[p5sagit/p5-mst-13.2.git] / win32 / perlhost.h

diff --git a/win32/perlhost.h b/win32/perlhost.h
index e514bf1..458ff9a 100644 (file)
--- a/win32/perlhost.h
+++ b/win32/perlhost.h
@@ -98,6 +98,17 @@ public:
     {
        return g_win32_get_sitelib(pl);
     };
+    virtual int Uname(struct utsname *name, int &err)
+    {
+       return win32_uname(name);
+    };
+    virtual char *Getenv_len(const char *varname, unsigned long *len, int &err)
+    {
+       char *e = win32_getenv(varname);
+       if (e)
+           *len = strlen(e);
+       return e;
+    };
 };
 
 class CPerlSock : public IPerlSock