From a3c0e9caa94eb215eb66e54d6286c77ccf441f01 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 26 Sep 2006 22:29:09 +0000
Subject: Make Perl_regdupe only exist for threaded perls.

p4raw-id: //depot/perl@28893
---
 ext/re/re.xs | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

(limited to 'ext/re/re.xs')

diff --git a/ext/re/re.xs b/ext/re/re.xs
index 7fad14642f..3433a0fd7e 100644
--- a/ext/re/re.xs
+++ b/ext/re/re.xs
@@ -36,14 +36,24 @@ struct regexp_engine {
 				    struct re_scream_pos_data_s *data);
     SV*		(*re_intuit_string) (pTHX_ regexp *prog);
     void	(*regfree) (pTHX_ struct regexp* r);
+#if defined(USE_ITHREADS)
     regexp*	(*regdupe) (pTHX_ regexp *r, CLONE_PARAMS *param);
+#endif
 };
 
 struct regexp_engine engines[] = {
     { Perl_pregcomp, Perl_regexec_flags, Perl_re_intuit_start,
-      Perl_re_intuit_string, Perl_pregfree, Perl_regdupe },
+      Perl_re_intuit_string, Perl_pregfree
+#if defined(USE_ITHREADS)
+	, Perl_regdupe
+#endif
+    },
     { my_regcomp, my_regexec, my_re_intuit_start, my_re_intuit_string,
-      my_regfree, my_regdupe }
+      my_regfree
+#if defined(USE_ITHREADS)
+      , my_regdupe
+#endif
+    }
 };
 
 #define MY_CXT_KEY "re::_guts" XS_VERSION
@@ -76,7 +86,9 @@ install(pTHX_ unsigned int new_state)
     PL_regint_start = engines[new_state].re_intuit_start;
     PL_regint_string = engines[new_state].re_intuit_string;
     PL_regfree = engines[new_state].regfree;
+#if defined(USE_ITHREADS)
     PL_regdupe = engines[new_state].regdupe;
+#endif
 
     if (new_state & NEEDS_DEBUGGING) {
 	PL_colorset = 0;	/* Allow reinspection of ENV. */
-- 
cgit v1.2.1