Commit | Line | Data |
---|---|---|
3028581b | 1 | #ifndef H_PERLENV |
2 | #define H_PERLENV 1 | |
3 | ||
4 | #ifdef PERL_OBJECT | |
0824fdcb | 5 | |
6 | #include "ipenv.h" | |
7 | ||
8 | #define PerlEnv_putenv(str) piENV->Putenv((str), ErrorNo()) | |
9 | #define PerlEnv_getenv(str) piENV->Getenv((str), ErrorNo()) | |
f7a92b15 | 10 | #define PerlEnv_lib_path piENV->LibPath |
3028581b | 11 | #else |
5fd9e9a4 | 12 | #define PerlEnv_putenv(str) putenv((str)) |
13 | #define PerlEnv_getenv(str) getenv((str)) | |
3028581b | 14 | #endif /* PERL_OBJECT */ |
15 | ||
16 | #endif /* Include guard */ |