[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())
#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 */
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))
5fd9e9a4	13	#define PerlEnv_getenv(str) getenv((str))
3028581b	14	#endif /* PERL_OBJECT */
	15
	16	#endif /* Include guard */