blob: 07cce76e787e989add702733a6f387dfec0eab89 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#ifndef H_PERLENV
#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))
#endif /* PERL_OBJECT */
#endif /* Include guard */
|
