Threading fixups for Digital UNIX.

p4raw-id: //depot/perl@45

1 files changed, 3 insertions, 3 deletions

diff --git a/perl.h b/perl.h
index 9507f8befd..6e29d3639a 100644
--- a/perl.h
+++ b/perl.h
@@ -861,9 +861,9 @@ typedef pthread_key_t perl_key;
 
 #endif
 
-/* Digital UNIX defines CONTEXT when pthreads is in use */
-#ifdef CONTEXT
-#  undef CONTEXT
+/* Digital UNIX defines a typedef CONTEXT when pthreads is in use */ 
+#if defined(__osf__)
+#  define CONTEXT PERL_CONTEXT
 #endif
 
 typedef MEM_SIZE STRLEN;