use more efficient sv_reftype_len() interfacemauve

1 files changed, 3 insertions, 2 deletions

diff --git a/pp.c b/pp.c
index 2ee604991c..78ed2867ab 100644
--- a/pp.c
+++ b/pp.c
@@ -559,6 +559,7 @@ PP(pp_ref)
     dVAR; dSP; dTARGET;
     const char *pv;
     SV * const sv = POPs;
+    STRLEN len;
 
     if (sv)
 	SvGETMAGIC(sv);
@@ -566,8 +567,8 @@ PP(pp_ref)
     if (!sv || !SvROK(sv))
 	RETPUSHNO;
 
-    pv = sv_reftype(SvRV(sv),TRUE);
-    PUSHp(pv, strlen(pv));
+    pv = sv_reftype_len(SvRV(sv),TRUE,&len);
+    PUSHp(pv, len);
     RETURN;
 }