From: Jens Hamisch <jens@Strawberry.COM>
Date: Wed, 15 Nov 2000 14:23:11 +0000 (+0100)
Subject: SOCKS has its own USE_THREADS, based on
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c3dedce1d22d7ae69fe05f4e0ca7db15ffadf602;p=p5sagit%2Fp5-mst-13.2.git

SOCKS has its own USE_THREADS, based on

Subject: [ID 20001114.002] et. al. bugfix followup
Message-ID: <20001115142311.A21164@Strawberry.COM>

p4raw-id: //depot/perl@7699
---

diff --git a/perl.h b/perl.h
index f932198..56b25f3 100644
--- a/perl.h
+++ b/perl.h
@@ -1,3 +1,4 @@
+emacs -nw perl.h
 /*    perl.h
  *
  *    Copyright (c) 1987-2000, Larry Wall
@@ -717,7 +718,18 @@ typedef struct perl_mstats perl_mstats_t;
 #       define INCLUDE_PROTOTYPES /* for <socks.h> */
 #       define PERL_SOCKS_NEED_PROTOTYPES
 #   endif
+#   ifdef USE_THREADS
+#       define PERL_USE_THREADS /* store our value */
+#       undef USE_THREADS
+#   endif
 #   include <socks.h>
+#   ifdef USE_THREADS
+#       undef USE_THREADS /* socks.h does this on its own */
+#   endif
+#   ifdef PERL_USE_THREADS
+#       define USE_THREADS /* restore our value */
+#       undef PERL_USE_THREADS
+#   endif
 #   ifdef PERL_SOCKS_NEED_PROTOTYPES /* keep cpp space clean */
 #       undef INCLUDE_PROTOTYPES
 #       undef PERL_SOCKS_NEED_PROTOTYPES