summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorJens Hamisch <jens@Strawberry.COM>2000-11-15 15:23:11 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2000-11-15 14:13:04 +0000
commitc3dedce1d22d7ae69fe05f4e0ca7db15ffadf602 (patch)
tree22861c1d7d624d0374d0d11e6f5cd7fa02b6a0ed /perl.h
parentcf677677a1a817dcdfc679372e08232bc54af9cb (diff)
downloadperl-c3dedce1d22d7ae69fe05f4e0ca7db15ffadf602.tar.gz
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
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h12
1 files changed, 12 insertions, 0 deletions
diff --git a/perl.h b/perl.h
index f932198d3e..56b25f35de 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