Compress::Zlib

[p5sagit/p5-mst-13.2.git] / ext / re / re.xs

diff --git a/ext/re/re.xs b/ext/re/re.xs
index 3188725..11239d7 100644 (file)
--- a/ext/re/re.xs
+++ b/ext/re/re.xs
@@ -1,11 +1,13 @@
+#if defined(PERL_EXT_RE_DEBUG) && !defined(DEBUGGING)
+#  define DEBUGGING
+#endif
+
 #define PERL_NO_GET_CONTEXT
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
 
-#ifdef WAS_NOT_DEBUGGING
-void Perl_deb(pTHX_ const char* pat, ...) { }
-#endif
+START_EXTERN_C
 
 extern regexp* my_regcomp (pTHX_ char* exp, char* xend, PMOP* pm);
 extern I32     my_regexec (pTHX_ regexp* prog, char* stringarg, char* strend,
@@ -17,6 +19,8 @@ extern char*  my_re_intuit_start (pTHX_ regexp *prog, SV *sv, char *strpos,
                                    struct re_scream_pos_data_s *data);
 extern SV*     my_re_intuit_string (pTHX_ regexp *prog);
 
+END_EXTERN_C
+
 #define MY_CXT_KEY "re::_guts" XS_VERSION
 
 typedef struct {