perlenv.h

   1 #ifndef H_PERLENV
   2 #define H_PERLENV 1
   3
   4 #ifdef PERL_OBJECT
   5
   6 #include "ipenv.h"
   7
   8 #define PerlEnv_putenv(str) piENV->Putenv((str), ErrorNo())
   9 #define PerlEnv_getenv(str) piENV->Getenv((str), ErrorNo())
  10 #define PerlEnv_lib_path    piENV->LibPath
  11 #else
  12 #define PerlEnv_putenv(str) putenv((str))
  13 #define PerlEnv_getenv(str) getenv((str))
  14 #endif  /* PERL_OBJECT */
  15
  16 #endif /* Include guard */