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

#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 */
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
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))
5fd9e9a4	16	#define PerlEnv_getenv(str) getenv((str))
3028581b	17	#endif /* PERL_OBJECT */
	18
	19	#endif /* Include guard */