From: Gisle Aas <gisle@aas.no>
Date: Thu, 7 Jun 2001 17:04:29 +0000 (-0700)
Subject: Unresolved symbol in ext/re/re.xs
X-Git-Tag: accepted/trunk/20130322.191538~31629
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=5371795a221e496d155a1231da29da52eb253eb5;p=platform%2Fupstream%2Fperl.git

Unresolved symbol in ext/re/re.xs
Message-ID: <lrae3jsupe.fsf@caliper.ActiveState.com>

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

diff --git a/ext/re/re.xs b/ext/re/re.xs
index e9a9cab..cc4dc69 100644
--- a/ext/re/re.xs
+++ b/ext/re/re.xs
@@ -1,6 +1,7 @@
 /* We need access to debugger hooks */
 #ifndef DEBUGGING
 #  define DEBUGGING
+#  define WAS_NOT_DEBUGGING
 #endif
 
 #define PERL_NO_GET_CONTEXT
@@ -8,6 +9,10 @@
 #include "perl.h"
 #include "XSUB.h"
 
+#ifdef WAS_NOT_DEBUGGING
+void Perl_deb(pTHX_ const char* pat, ...) { }
+#endif
+
 extern regexp*	my_regcomp (pTHX_ char* exp, char* xend, PMOP* pm);
 extern I32	my_regexec (pTHX_ regexp* prog, char* stringarg, char* strend,
 			    char* strbeg, I32 minend, SV* screamer,