This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Move 2 hdr inversion fields to SV hdr
[perl5.git] / inline.h
index 00c59f5..7aeb93d 100644 (file)
--- a/inline.h
+++ b/inline.h
@@ -43,6 +43,7 @@ S_CvDEPTHp(const CV * const sv)
  prototype and will be updated when this returns.
  */
 
+#ifdef PERL_CORE
 PERL_STATIC_INLINE char *
 S_strip_spaces(pTHX_ const char * orig, STRLEN * const len)
 {
@@ -59,6 +60,7 @@ S_strip_spaces(pTHX_ const char * orig, STRLEN * const len)
     *len = tmps - SvPVX(tmpsv);
                return SvPVX(tmpsv);
 }
+#endif
 
 /* ----------------------------- regexp.h ----------------------------- */