From: Nicholas Clark Date: Mon, 14 Apr 2008 15:01:49 +0000 (+0000) Subject: Perl_store_cop_label() isn't meant to be part of the public API. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72241cc917b12736c9ada9c5661d4698c7069fba;p=p5sagit%2Fp5-mst-13.2.git Perl_store_cop_label() isn't meant to be part of the public API. (global.sym had been inconsistent with embed.fnc, but it turns out that global.sym was actually correct.) p4raw-id: //depot/perl@33677 --- diff --git a/embed.fnc b/embed.fnc index a536cb7..088957a 100644 --- a/embed.fnc +++ b/embed.fnc @@ -1989,7 +1989,7 @@ Apon |void |sys_init3 |NN int* argc|NN char*** argv|NN char*** env Apon |void |sys_term ApoM |const char *|fetch_cop_label|NULLOK struct refcounted_he *const chain \ |NULLOK STRLEN *len|NULLOK U32 *flags -ApoM |struct refcounted_he *|store_cop_label \ +xpoM |struct refcounted_he *|store_cop_label \ |NULLOK struct refcounted_he *const chain|NN const char *label END_EXTERN_C diff --git a/embed.h b/embed.h index cb2a66d..36f8cbf 100644 --- a/embed.h +++ b/embed.h @@ -4263,6 +4263,8 @@ #ifdef PERL_CORE #define boot_core_mro() Perl_boot_core_mro(aTHX) #endif +#ifdef PERL_CORE +#endif #define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a) #define ck_bitop(a) Perl_ck_bitop(aTHX_ a) #define ck_chdir(a) Perl_ck_chdir(aTHX_ a)