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 (file)
--- 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,