Rename store/fetch_cop_label as cop_*

This makes them consistent with other functions that put the basic
datum type first (like hv_*, sv_*, cophh_*).

Since fetch_cop_label is marked as experimental (M), this change
should be OK.

1 files changed, 7 insertions, 7 deletions

diff --git a/hv.c b/hv.c
index 0b46ef6635..f8f16b640a 100644
--- a/hv.c
+++ b/hv.c
@@ -3288,7 +3288,7 @@ Perl_refcounted_he_inc(pTHX_ struct refcounted_he *he)
 }
 
 /*
-=for apidoc fetch_cop_label
+=for apidoc cop_fetch_label
 
 Returns the label attached to a cop.
 The flags pointer may be set to C<SVf_UTF8> or 0.
@@ -3299,10 +3299,10 @@ The flags pointer may be set to C<SVf_UTF8> or 0.
 /* pp_entereval is aware that labels are stored with a key ':' at the top of
    the linked list.  */
 const char *
-Perl_fetch_cop_label(pTHX_ COP *const cop, STRLEN *len, U32 *flags) {
+Perl_cop_fetch_label(pTHX_ COP *const cop, STRLEN *len, U32 *flags) {
     struct refcounted_he *const chain = cop->cop_hints_hash;
 
-    PERL_ARGS_ASSERT_FETCH_COP_LABEL;
+    PERL_ARGS_ASSERT_COP_FETCH_LABEL;
 
     if (!chain)
 	return NULL;
@@ -3333,7 +3333,7 @@ Perl_fetch_cop_label(pTHX_ COP *const cop, STRLEN *len, U32 *flags) {
 }
 
 /*
-=for apidoc store_cop_label
+=for apidoc cop_store_label
 
 Save a label into a C<cop_hints_hash>. You need to set flags to C<SVf_UTF8>
 for a utf-8 label.
@@ -3342,14 +3342,14 @@ for a utf-8 label.
 */
 
 void
-Perl_store_cop_label(pTHX_ COP *const cop, const char *label, STRLEN len,
+Perl_cop_store_label(pTHX_ COP *const cop, const char *label, STRLEN len,
 		     U32 flags)
 {
     SV *labelsv;
-    PERL_ARGS_ASSERT_STORE_COP_LABEL;
+    PERL_ARGS_ASSERT_COP_STORE_LABEL;
 
     if (flags & ~(SVf_UTF8))
-	Perl_croak(aTHX_ "panic: store_cop_label illegal flag bits 0x%" UVxf,
+	Perl_croak(aTHX_ "panic: cop_store_label illegal flag bits 0x%" UVxf,
 		   (UV)flags);
     labelsv = newSVpvn_flags(label, len, SVs_TEMP);
     if (flags & SVf_UTF8)