Re: Exceptions in IPC::Open2
[p5sagit/p5-mst-13.2.git] / perlenv.h
CommitLineData
3028581b 1#ifndef H_PERLENV
2#define H_PERLENV 1
3
4#ifdef PERL_OBJECT
0824fdcb 5
6#include "ipenv.h"
7
00dc2f4f 8#define PerlEnv_putenv(str) piENV->Putenv((str), ErrorNo())
9#define PerlEnv_getenv(str) piENV->Getenv((str), ErrorNo())
10#ifdef WIN32
11#define PerlEnv_lib_path(str) piENV->LibPath((str))
12#define PerlEnv_sitelib_path(str) piENV->SiteLibPath((str))
13#endif
3028581b 14#else
5fd9e9a4 15#define PerlEnv_putenv(str) putenv((str))
16#define PerlEnv_getenv(str) getenv((str))
3028581b 17#endif /* PERL_OBJECT */
18
19#endif /* Include guard */