1 files changed, 7 insertions, 0 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h
index cc5b5e5cd4..458ff9afc9 100644
--- a/win32/perlhost.h
+++ b/win32/perlhost.h
@@ -102,6 +102,13 @@ public:
     {
 	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