[perl.git] branch blead, updated. GitLive-blead-1310-gbcbea5d

[Steve Hay]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/bcbea5d217c6997d2a140a79bbb1ab98c4acc354?hp=fb22f0eaa0d1a411b0a77d70dc8a2f14a42726a2>

- Log -----------------------------------------------------------------
commit bcbea5d217c6997d2a140a79bbb1ab98c4acc354
Author: Steve Hay <steve...@planit.com>
Date:   Tue Jun 9 14:47:06 2009 +0100

    Fix threads build on Win32
    
    Follow-up to 8264cf327251f9724c99b125cc3eea11be9b97c5.
-----------------------------------------------------------------------

Summary of changes:
 ext/threads/threads.xs |    8 +++++---
 1 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 7abd037..7d0ad23 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -142,7 +142,7 @@ S_block_most_signals(sigset_t *oldmask)
     return sigprocmask(SIG_BLOCK, &newmask, oldmask);
 #else
     return pthread_sigmask(SIG_BLOCK, &newmask, oldmask);
-#endif /* WIN32 */
+#endif /* VMS */
 }
 
 /* Set the signal mask for this thread to newmask */
@@ -153,9 +153,9 @@ S_set_sigmask(sigset_t *newmask)
     return sigprocmask(SIG_SETMASK, newmask, NULL);
 #else
     return pthread_sigmask(SIG_SETMASK, newmask, NULL);
-#endif /* WIN32 */
+#endif /* VMS */
 }
-#endif
+#endif /* WIN32 */
 
 /* Used by Perl interpreter for thread context switching */
 STATIC void
@@ -184,7 +184,9 @@ STATIC void
 S_ithread_clear(pTHX_ ithread *thread)
 {
     PerlInterpreter *interp;
+#ifndef WIN32
     sigset_t origmask;
+#endif
 
     assert(((thread->state & PERL_ITHR_FINISHED) &&
             (thread->state & PERL_ITHR_UNCALLABLE))

--
Perl5 Master Repository