blob: 6f4211ec48ffad196ee04cdb7df226a1ca7a52f3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#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())
#define PerlEnv_lib_path piENV->LibPath
#else
#define PerlEnv_putenv(str) putenv((str))
#define PerlEnv_getenv(str) getenv((str))
#endif /* PERL_OBJECT */
#endif /* Include guard */
|
