This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
(toke|regcomp).c: Use common fcn to handle \0 problems
[perl5.git] / proto.h
diff --git a/proto.h b/proto.h
index e1f8864..bc939fd 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -5914,13 +5914,6 @@ PERL_CALLCONV const char *       Perl_form_cp_too_large_msg(pTHX_ const U8 which, cons
                        __attribute__warn_unused_result__;
 #define PERL_ARGS_ASSERT_FORM_CP_TOO_LARGE_MSG
 
-#ifndef PERL_NO_INLINE_FUNCTIONS
-PERL_STATIC_INLINE char*       S_form_short_octal_warning(pTHX_ const char * const s, const STRLEN len)
-                       __attribute__warn_unused_result__;
-#define PERL_ARGS_ASSERT_FORM_SHORT_OCTAL_WARNING      \
-       assert(s)
-#endif
-
 PERL_CALLCONV bool     Perl_grok_bslash_c(pTHX_ const char source, U8 * result, const char** message, U32 * packed_warn)
                        __attribute__warn_unused_result__;
 #define PERL_ARGS_ASSERT_GROK_BSLASH_C \