There is no pthread_sigmask on VMS, so use sigprocmask instead.

According to the standard, use of sigprocmask is undefined in a
multi-threaded context, but in the absence of a per-thread signal
blocking mechanism (likely impossible until and unless per-thread
ASTs become available), this may be the best we can do.

This is a follow-up to: b762d8667351cb765bc1d6419d30acff085da502.

1 files changed, 5 insertions, 0 deletions

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 95746539a6..54b00ac17d 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -137,6 +137,9 @@ S_block_most_signals(sigset_t *oldmask)
 #ifdef WIN32
     /* XXX: How to do this on win32? */
     return 0;
+#elif defined(VMS)
+    /* no per-thread blocking available */
+    return sigprocmask(SIG_BLOCK, &newmask, oldmask);
 #else
     return pthread_sigmask(SIG_BLOCK, &newmask, oldmask);
 #endif /* WIN32 */
@@ -149,6 +152,8 @@ S_set_sigmask(sigset_t *newmask)
 #ifdef WIN32
     /* XXX: How to do this on win32? */
     return 0;
+#elif defined(VMS)
+    return sigprocmask(SIG_SETMASK, newmask, NULL);
 #else
     return pthread_sigmask(SIG_SETMASK, newmask, NULL);
 #endif /* WIN32 */