From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sun, 16 Feb 2003 08:29:54 +0000 (+0000)
Subject: Forgotten from #18715.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eb7b3f484a407c1bbfe89627adaeb5edc5e77736;p=p5sagit%2Fp5-mst-13.2.git

Forgotten from #18715.

p4raw-id: //depot/perl@18716
---

diff --git a/embed.h b/embed.h
index 887eee1..b8cc87b 100644
--- 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
--- 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, ...)