From f34d8cddb66ff0384d68d9388041c9a299f2bb09 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Thu, 28 Aug 2014 15:59:05 -0700 Subject: sv_cathek This macro, intended for internal use, simplifies the code in a couple of places. --- util.c | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'util.c') diff --git a/util.c b/util.c index d6501bddab..f3071380aa 100644 --- a/util.c +++ b/util.c @@ -5372,10 +5372,7 @@ Perl_get_db_sub(pTHX_ SV **svp, CV *cv) else { sv_sethek(dbsv, HvENAME_HEK(GvSTASH(gv))); sv_catpvs(dbsv, "::"); - sv_catpvn_flags( - dbsv, GvNAME(gv), GvNAMELEN(gv), - GvNAMEUTF8(gv) ? SV_CATUTF8 : SV_CATBYTES - ); + sv_cathek(dbsv, GvNAME_HEK(gv)); } } else { -- cgit v1.2.1