os2: Use many reader lock instead of exclusive

This is just reading the environment, not changing it, so many readers
can be accessing it at the same time.

1 files changed, 3 insertions, 3 deletions

diff --git a/os2/os2.c b/os2/os2.c
index 0d29d13251..6fa0028ab9 100644
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -5047,14 +5047,14 @@ my_tmpnam (char *str)
     char *p = PerlEnv_getenv("TMP"), *tpath;
 
     if (!p) p = PerlEnv_getenv("TEMP");
-    ENV_LOCK;
+    ENV_READ_LOCK;
     tpath = tempnam(p, "pltmp");
     if (str && tpath) {
         strcpy(str, tpath);
-        ENV_UNLOCK;
+        ENV_READ_UNLOCK;
         return str;
     }
-    ENV_UNLOCK;
+    ENV_READ_UNLOCK;
     return tpath;
 }