Forgotten from #18715.

p4raw-id: //depot/perl@18716

diff --git a/embed.h b/embed.h
index 887eee1..b8cc87b 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -1097,6 +1097,9 @@
 #define wait4pid               Perl_wait4pid
 #endif
 #ifdef PERL_CORE
+#define parse_unicode_opts     Perl_parse_unicode_opts
+#endif
+#ifdef PERL_CORE
 #define report_evil_fh         Perl_report_evil_fh
 #endif
 #ifdef PERL_CORE
@@ -3546,6 +3549,9 @@
 #define wait4pid(a,b,c)                Perl_wait4pid(aTHX_ a,b,c)
 #endif
 #ifdef PERL_CORE
+#define parse_unicode_opts(a)  Perl_parse_unicode_opts(aTHX_ a)
+#endif
+#ifdef PERL_CORE
 #define report_evil_fh(a,b,c)  Perl_report_evil_fh(aTHX_ a,b,c)
 #endif
 #ifdef PERL_CORE

diff --git a/proto.h b/proto.h
index fb6911e..4b527cd 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -854,6 +854,7 @@ PERL_CALLCONV char* Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim, UV
 PERL_CALLCONV void     Perl_vivify_defelem(pTHX_ SV* sv);
 PERL_CALLCONV void     Perl_vivify_ref(pTHX_ SV* sv, U32 to_what);
 PERL_CALLCONV I32      Perl_wait4pid(pTHX_ Pid_t pid, int* statusp, int flags);
+PERL_CALLCONV U32      Perl_parse_unicode_opts(pTHX_ char **popt);
 PERL_CALLCONV void     Perl_report_evil_fh(pTHX_ GV *gv, IO *io, I32 op);
 PERL_CALLCONV void     Perl_report_uninit(pTHX);
 PERL_CALLCONV void     Perl_warn(pTHX_ const char* pat, ...)