From d6747b7ae5ffdaaf8364760ca2abdcb734c664c8 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Thu, 2 Sep 2010 15:57:24 +0100 Subject: Change the first argument of Perl_fetch_cop_label() to COP * From a suggestion from Ben Morrow. The first argument used to be struct refcounted_he *, which exposed an implementation detail - that the COP's labels are (now) stored in this way. Google Code Search and an unpacked CPAN both fail to find any users of this API, so the impact should be minimal. --- embed.fnc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'embed.fnc') diff --git a/embed.fnc b/embed.fnc index ddc3173be8..63269f0f7e 100644 --- a/embed.fnc +++ b/embed.fnc @@ -2379,7 +2379,7 @@ p |void |boot_core_mro Apon |void |sys_init |NN int* argc|NN char*** argv 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 \ +ApoM |const char *|fetch_cop_label|NN COP *const cop \ |NULLOK STRLEN *len|NULLOK U32 *flags : Only used in op.c xpoM |void|store_cop_label \ -- cgit v1.2.1