+ /* Use the comma operator to return 0/non-zero, while avoiding putting
+ * this in an inline function */
+# define PerlEnv_putenv(str) (ENV_LOCK, (putenv(str) \
+ ? (ENV_UNLOCK, 1) \
+ : (ENV_UNLOCK, 0)))
+# else
+# define PerlEnv_putenv(str) putenv(str)
+# endif
+#define PerlEnv_getenv(str) mortal_getenv(str)