This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Unresolved symbol in ext/re/re.xs
authorGisle Aas <gisle@aas.no>
Thu, 7 Jun 2001 17:04:29 +0000 (10:04 -0700)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 8 Jun 2001 12:19:00 +0000 (12:19 +0000)
Message-ID: <lrae3jsupe.fsf@caliper.ActiveState.com>

p4raw-id: //depot/perl@10477

ext/re/re.xs

index e9a9cab..cc4dc69 100644 (file)
@@ -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,