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 #ifdef WIN32
  11 #define PerlEnv_lib_path(str)       piENV->LibPath((str))
  12 #define PerlEnv_sitelib_path(str)   piENV->SiteLibPath((str))
  13 #endif
  14 #else
  15 #define PerlEnv_putenv(str) putenv((str))
  16 #define PerlEnv_getenv(str) getenv((str))
  17 #endif  /* PERL_OBJECT */
  18
  19 #endif /* Include guard */