This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Mathomise save_re_context
authorFather Chrysostomos <sprout@cpan.org>
Sat, 13 Sep 2014 04:45:33 +0000 (21:45 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 13 Sep 2014 04:45:33 +0000 (21:45 -0700)
at Jarkko’s suggestion.

mathoms.c
regcomp.c

index f9b9462..fa60621 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -1767,6 +1767,13 @@ Perl_utf8_to_uvuni(pTHX_ const U8 *s, STRLEN *retlen)
     return NATIVE_TO_UNI(valid_utf8_to_uvchr(s, retlen));
 }
 
+void
+Perl_save_re_context(pTHX)
+{
+    PERL_UNUSED_CONTEXT;
+}
+
+
 END_EXTERN_C
 
 #endif /* NO_MATHOMS */
index a3eccfa..44b3129 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -16785,17 +16785,6 @@ S_re_croak2(pTHX_ bool utf8, const char* pat1,const char* pat2,...)
     Perl_croak(aTHX_ "%"UTF8f, UTF8fARG(utf8, l1-1, buf));
 }
 
-/* Get this:  We have an empty void function here.  But it somehow got into
-   the API, so there you go.  */
-
-#ifndef PERL_IN_XSUB_RE
-void
-Perl_save_re_context(pTHX)
-{
-    PERL_UNUSED_CONTEXT;
-}
-#endif
-
 #ifdef DEBUGGING
 /* Certain characters are output as a sequence with the first being a
  * backslash. */