Remove some strlen()s and replace one strlcpy() with memcpy() because

we already know the string length.

p4raw-id: //depot/perl@32105

1 files changed, 1 insertions, 2 deletions

diff --git a/mro.c b/mro.c
index 37a0e96f33..87c102e34d 100644
--- a/mro.c
+++ b/mro.c
@@ -840,8 +840,7 @@ XS(XS_mro_is_universal)
 
     classname = ST(0);
 
-    classname_pv = SvPV_nolen(classname);
-    classname_len = strlen(classname_pv);
+    classname_pv = SvPV(classname,classname_len);
 
     he = hv_fetch_ent(PL_isarev, classname, 0, 0);
     isarev = he ? (HV*)HeVAL(he) : NULL;