[asperl] added AS patch#7

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

diff --git a/perlenv.h b/perlenv.h
index 49319c6..eb631a2 100644 (file)
--- a/perlenv.h
+++ b/perlenv.h
@@ -2,6 +2,12 @@
 #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))