a tweaked version of:

[p5sagit/p5-mst-13.2.git] / perlenv.h

diff --git a/perlenv.h b/perlenv.h
index 49319c6..07cce76 100644 (file)
--- a/perlenv.h
+++ b/perlenv.h
@@ -2,6 +2,15 @@
 #define H_PERLENV 1
 
 #ifdef PERL_OBJECT
+
+#include "ipenv.h"
+
+#define PerlEnv_putenv(str)        piENV->Putenv((str), ErrorNo())
+#define PerlEnv_getenv(str)        piENV->Getenv((str), ErrorNo())
+#ifdef WIN32
+#define PerlEnv_lib_path(str)      piENV->LibPath((str))
+#define PerlEnv_sitelib_path(str)   piENV->SiteLibPath((str))
+#endif
 #else
 #define PerlEnv_putenv(str) putenv((str))
 #define PerlEnv_getenv(str) getenv((str))