[asperl] added AS patch#7

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

diff --git a/perlenv.h b/perlenv.h
index 9dd7185..eb631a2 100644 (file)
--- a/perlenv.h
+++ b/perlenv.h
@@ -2,9 +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())
+#define PerlEnv_lib_path    piENV->LibPath
 #else
-#define PerlENV_putenv(str) putenv((str))
-#define PerlENV_getenv(str) getenv((str))
+#define PerlEnv_putenv(str) putenv((str))
+#define PerlEnv_getenv(str) getenv((str))
 #endif /* PERL_OBJECT */
 
 #endif /* Include guard */