at Jarkko’s suggestion.
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 */
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. */