cop.h - get rid of the STRLEN* stuff from cop_warnings

With RCPV strings we can use the RCPV_LEN() macro, and
make this logic a little less weird.

1 files changed, 4 insertions, 4 deletions

diff --git a/op.c b/op.c
index 6765efb20b..a4d714758a 100644
--- a/op.c
+++ b/op.c
@@ -1331,7 +1331,7 @@ S_cop_free(pTHX_ COP* cop)
     }
     CopFILE_free(cop);
     if (! specialWARN(cop->cop_warnings))
-        cop->cop_warnings = (STRLEN*)rcpv_free((char*)cop->cop_warnings);
+        cop->cop_warnings = rcpv_free(cop->cop_warnings);
 
     cophh_free(CopHINTHASH_get(cop));
     if (PL_curcop == cop)
@@ -15230,13 +15230,13 @@ const_av_xsub(pTHX_ CV* cv)
  * This is the e implementation for the DUP_WARNINGS() macro
  */
 
-STRLEN*
-Perl_dup_warnings(pTHX_ STRLEN* warnings)
+char *
+Perl_dup_warnings(pTHX_ char* warnings)
 {
     if (warnings == NULL || specialWARN(warnings))
         return warnings;
 
-    return (STRLEN*)rcpv_copy((char*)warnings);
+    return rcpv_copy(warnings);
 }
 
 /*